| 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 '或 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 '无 x = System.Version '无 x = System.FreeDiskSpace '无 x = System.MathCoprocessorInstalled x = System.Country x = System.LanguageDesignation x = System.VerticalResolution x = System.HorizontalResolution 值 512 至 526 仅用于 Macintosh 系统。 |
| 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 | 框架控件 |
| GrowFont | Selection.Font.Grow |
| GrowFontOnePoint | Selection.Font.Size = Selection.Font.Size + 1 |