| U | |
|---|---|
| UCase$(string) | UCase(string)
' or UCase$(string) |
| Underline, Underline() | ActiveDocument.Words(1).Underline = True
status = Selection.Font.Underline |
| UnHang | ActiveDocument.Paragraphs(1).TabHangingIndent Count:=-1 |
| UnIndent | Selection.Paragraphs.TabIndent Count:=-1 |
| UnlinkFields | Selection.Range.Fields.Unlink
ActiveDocument.Fields(num).Unlink |
| UnlockFields | Selection.Paragraphs(1).Range.Fields.Locked = False
ActiveDocument.Fields(num).Locked = False |
| UpdateFields | ActiveDocument.Sections(1).Range.Fields.Update
ActiveDocument.Fields(num).Update |
| UpdateSource | ActiveDocument.Paragraphs(1).Range.Fields.UpdateSource
ActiveDocument.Fields(num).UpdateSource |
| V | |
|---|---|
| Val(text) | Val(text) |
| ViewAnnotations | ActiveWindow.View.SplitSpecial = wdPaneComments |
| ViewBorderToolbar | CommandBars("Borders").Visible = True |
| ViewDraft, ViewDraft() | ActiveWindow.View.Draft = True
x = ActiveWindow.View.Draft |
| ViewDrawingToolbar | CommandBars("Drawing").Visible = True |
| ViewEndnoteArea, ViewEndnoteArea() | ActiveWindow.View.SplitSpecial = wdPaneEndnotes
x = ActiveWindow.View.SplitSpecial |
| ViewEndnoteContNotice | ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationNotice |
| ViewEndnoteContSeparator | ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator |
| ViewEndnoteSeparator | ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator |
| ViewFieldCodes | ActiveWindow.View.ShowFieldCodes = True |
| ViewFooter, ViewFooter() | ActiveWindow.View.SplitSpecial = wdPaneCurrentPageFooter
' or With ActiveWindow.View .Type = wdPrintView .SeekView = wdSeekCurrentPageFooter End With ' use the StoryType property to return the active story/pane aPane = Selection.StoryType |
| ViewFootnoteArea, ViewFootnoteArea() | ActiveWindow.View.SplitSpecial = wdPaneFootnotes
x = ActiveWindow.View.SplitSpecial |
| ViewFootnoteContNotice | ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationNotice |
| ViewFootnoteContSeparator | ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator |
| ViewFootnotes, ViewFootnotes() | If ActiveDocument.Footnotes.Count >= 1 Then
ActiveWindow.View.SplitSpecial = wdPaneFootnotes ElseIf ActiveDocument.Endnotes.Count >= 1 Then ActiveWindow.View.SplitSpecial = wdPaneEndnotes End If ' Use the Information property to determine if the selection is in a footnote or endnote pane x = Selection.Information(wdInFootnoteEndnotePane) |
| ViewFootnoteSeparator | ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator |
| ViewHeader, ViewHeader() | ActiveWindow.View.SplitSpecial = wdPaneCurrentPageHeader
' or With ActiveWindow.View .Type = wdPrintView .SeekView = wdSeekCurrentPageHeader End With ' use the StoryType property to return the active story/pane aPane = Selection.StoryType |
| ViewMasterDocument, ViewMasterDocument() | ActiveWindow.View.Type = wdMasterView
aView = ActiveWindow.View.Type |
| ViewMenus() | Not applicable in Word 2000 |
| ViewNormal, ViewNormal() | ActiveWindow.View.Type =wdNormalView
x = ActiveWindow.View.Type |
| ViewOutline, ViewOutline() | Windows(1).View.Type =wdOutlineView
x = Windows(1).View.Type |
| ViewPage, ViewPage() | Windows(name).View.Type =wdPrintView
x = Windows(name).View.Type |
| ViewRibbon, ViewRibbon() | CommandBars("Formatting").Visible = True
x = CommandBars("Formatting").Visible |
| ViewRuler, ViewRuler() | ActiveWindow.DisplayRulers = True
x = ActiveWindow.DisplayRulers |
| ViewStatusBar, ViewStatusBar() | Application.DisplayStatusBar = True
x = Application.DisplayStatusBar |
| ViewToggleMasterDocument | If ActiveWindow.View.Type = wdOutlineView Then
ActiveWindow.View.Type = wdMasterView ElseIf ActiveWindow.View.Type = wdMasterView Then ActiveWindow.View.Type = wdOutlineView End If |
| ViewToolbars LargeButtons, ToolTips, ToolTipsKey, Reset, Delete, Show | With CommandBars
.LargeButtons = True .DisplayToolTips = True .DisplayKeysInToolTips = True End With CommandBars(name).Reset CommandBars(name).Delete CommandBars(name).Visible = True |
| ViewZoom AutoFit
ViewZoom TwoPages ViewZoom FullPage ViewZoom NumColumns, NumRows ViewZoom ZoomPercent |
Windows(name).View.Zoom.PageFit = wdPageFitBestFit
With ActiveWindow.View.Zoom .PageColumns = 2 .PageRows = 1 End With ActiveWindow.View.Zoom.PageFit = wdPageFitFullPage With ActiveWindow.View.Zoom .PageColumns = num .PageRows = num End With ActiveWindow.View.Zoom.Percentage = num |
| ViewZoom100 | Windows(1).View.Zoom.Percentage = 100 |
| ViewZoom200 | ActiveWindow.View.Zoom.Percentage = 200 |
| ViewZoom75 | ActiveWindow.View.Zoom.Percentage = 75 |
| ViewZoomPageWidth | Windows(name).View.Zoom.PageFit = wdPageFitBestFit |
| ViewZoomWholePage | ActiveWindow.View.Zoom.PageFit = wdPageFitFullPage |
| VLine | ActiveWindow.SmallScroll Down:=num
' or ActiveWindow.SmallScroll Up:=num |
| VPage | ActiveWindow.LargeScroll Down:=num
' or ActiveWindow.LargeScroll Up:=num |
| VScroll, VScroll() | ActiveWindow.VerticalPercentScrolled = num
num = ActiveWindow.VerticalPercentScrolled |