Visual Basic Equivalents U Through V
Visual Basic Equivalents U Through V
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).mdaa158468(v=office.10).mdaa158468(v=office.10).md
| 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 |