Visual Basic Equivalents U Through V
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 Office Word 2003 |
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 |