Visual Basic Equivalents U Through V

Microsoft Word Visual Basic

Visual Basic Equivalents U Through V

   

ABCDEFGHIJKLMNOPRSTUVWY

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 2002
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