Share via


Visual Basic Equivalents W Through Y

Visual Basic Equivalents W Through Y
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

aa158433(v=office.10).mdaa158435(v=office.10).mdaa158437(v=office.10).mdaa158439(v=office.10).mdaa158441(v=office.10).mdaa158443(v=office.10).mdaa158446(v=office.10).mdaa158448(v=office.10).mdaa158450(v=office.10).mdaa158452(v=office.10).mdaa158452(v=office.10).mdaa158452(v=office.10).mdaa158454(v=office.10).mdaa158456(v=office.10).mdaa158458(v=office.10).mdaa158458(v=office.10).mdaa158460(v=office.10).mdaa158462(v=office.10).mdaa158464(v=office.10).mdaa158466(v=office.10).mdaa158466(v=office.10).md

W  
WaitCursor System.Cursor = WdCursorType
Weekday(date) Weekday(date)
While...Wend While...Wend
num = Window() num = ActiveWindow.Index
WindowArrangeAll Windows.Arrange ArrangeStyle:=wdTiled
WindowList num Window(num).Activate
WindowName$() aCap = ActiveWindow.Caption
WindowNewWindow Windows.Add

' or

ActiveWindow.NewWindow

Window num Window(num).Activate
WindowPane() Use the Split property to determine if a Window is split.

Use StoryType property with the Selection object to determine the pane/story of the selection.

WinToDOS$() x = WordBasic.[WinToDOS$](StringToTranslate)
WordLeft count

WordLeft count, select

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdMove

Selection.MoveStart Unit:=wdWord, Count:=-1

' or

Selection.MoveLeft Unit:=WdWord, Count:=1, Extend:=wdExtend

WordRight 1

WordRight 1, 1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdMove

Selection.MoveEnd Unit:=wdWord, Count:=1

' or

Selection.MoveRight Unit:=WdWord, Count:=1, Extend:=wdExtend

WordUnderline, WordUnderline() Selection.Range.Underline = wdUnderlineWords

status = Selection.Range.Underline

Write Write
Y  
Year Year()