Visual Basic Equivalents G
G | |
---|---|
GetAddInID(name) | x = Addins(name).Index |
GetAddInName$(num) | x = Addins(num).Name |
GetAddress$() | x = Application.GetAddress |
GetAttr(filename) | GetAttr(filename) |
GetAutoCorrect$(name) | x = AutoCorrect.Entries(name).Value |
GetAutoCorrectException$() | x = AutoCorrect.FirstLetterExceptions(num).Name
x = AutoCorrect.TwoInitialCapsExceptions(num).Name |
GetAutoText$() | x = ActiveDocument.AttachedTemplate.AutoTextEntries(name).Value |
GetBookmark$(name) | x = ActiveDocument.Bookmarks(name).Range.Text |
GetCurValues | Dialogs(WdWordDialog).Update |
GetDirectory$() | x = WordBasic.[GetDirectory$]() |
GetDocumentProperty(), GetDocumentProperty$() | x = ActiveDocument.CustomDocumentProperties(name).Value
' or x = ActiveDocument.BuiltInDocumentProperties(name).Value |
GetDocumentVar$(name) | x = ActiveDocument.Variables(name).Value |
GetDocumentVarName$(num) | x = ActiveDocument.Variables(num).Name |
GetFieldData$() | x = Selection.Fields(1).Data |
GetFormResult(), GetFormResult$() | x = ActiveDocument.FormFields(name).Result |
GetMergeField$() | x = ActiveDocument.MailMerge.DataSource.DataFields(name).Value |
GetPrivateProfileString$() | x = System.PrivateProfileString (filename, section, key) |
GetProfileString$() | x = System.ProfileString (section, key) |
GetSelEndPos() | x = Selection.End |
GetSelStartPos() | x = Selection.Start |
GetSystemInfo$(21)
GetSystemInfo$(22) GetSystemInfo$(23) GetSystemInfo$(24) GetSystemInfo$(25) GetSystemInfo$(26) GetSystemInfo$(27) GetSystemInfo$(28) GetSystemInfo$(29) GetSystemInfo$(30) GetSystemInfo$(31) GetSystemInfo$(32) |
x = System.OperatingSystem
x = System.ProcessorType ' not available x = System.Version ' not available x = System.FreeDiskSpace ' not available x = System.MathCoprocessorInstalled x = System.Country x = System.LanguageDesignation x = System.VerticalResolution x = System.HorizontalResolution Values 512 to 526 are Macintosh only. |
GetText$(Pos1, Pos2) | x = ActiveDocument.Range (Pos1, Pos2).Text |
GoBack | Application.GoBack |
Goto | GoTo |
GoToAnnotationScope | Selection.Comments(1).Scope.Select |
GoToHeaderFooter | If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If |
GoToNextAnnotation
GoToNextEndnote GoToNextFootnote GoToNextPage GoToNextSection GoToNextSubdocument |
Selection.GoToNext
(wdGoToComment)
Selection.GoToNext (wdGoToEndnote) Selection.GoToNext (wdGoToFootnote) Selection.GotoNext (wdGoToPage) Selection.GotoNext (wdGoToSection) Selection.NextSubdocument |
GoToPreviousItem | Selection.GoTo What:=WdGoToItem, Which:=wdGoToPrevious |
GroupBox | Frame control |
GrowFont | Selection.Font.Grow |
GrowFontOnePoint | Selection.Font.Size = Selection.Font.Size + 1 |