Visual Basic Equivalents A
| A | |
|---|---|
| Abs(number) | Abs(number) |
| Activate name | Windows(name).Activate ' or Documents(name).Activate |
| ActivateObject | ActiveDocument.Shapes(1).OLEFormat.Activate ' or ActiveDocument.InlineShapes(1).OLEFormat.Activate |
| AddAddIn | Addins.Add |
| AddAddress | Application.AddAddress |
| AddButton | CommandBars(name).Controls.Add |
| AddDropDownItem | ActiveDocument.FormFields(1).DropDown.ListEntries.Add |
| AddInState state = AddInState(name) |
Addins(name).Installed = True state = Addins(name).Installed state = Addins(name).Compiled state = Addins(name).AutoLoad |
| AllCaps, AllCaps() | Selection.Font.AllCaps = True x = Selection.Font.AllCaps |
| AnnotationRefFromSel$() | x = Selection.Comments(1).Reference |
| AOCEAddRecipient | ActiveDocument.Mailer.Recipients = Array(name) ActiveDocument.Mailer.CCRecipients = Array(name) ActiveDocument.Mailer.BCCRecipients = Array(name) |
| AOCEAuthenticateUser() | x = WordBasic.AOCEAuthenticateUser |
| AOCEClearMailerField | ActiveDocument.Mailer.Recipients = "" |
| AOCECountRecipients() | x = Ubound(ActiveDocument.Mailer.Recipients) x = Ubound(ActiveDocument.Mailer.CCRecipients) x = Ubound(ActiveDocument.Mailer.BCCRecipients) |
| AOCEGetRecipient$() | rec = ActiveDocument.Mailer.Recipients ccRec = ActiveDocument.Mailer.CCRecipients bccRec = ActiveDocument.Mailer.BCCRecipients |
| AOCEGetSender$() | send = ActiveDocument.Mailer.Sender |
| AOCEGetSubject$() | sub = ActiveDocument.Mailer.Subject |
| AOCESendMail | ActiveDocument.SendMailer |
| AOCESetSubject | ActiveDocument.Mailer.Subject = text |
| AppActivate name | Tasks(name).Activate |
| AppClose name | Tasks(name).Close |
| AppCount() | Tasks.Count |
| AppGetNames, AppGetNames() | ' enumerate the Tasks collection i = 1 For Each aTask In Tasks aArray(i) = aTask.Name i = i + 1 Next aTask |
| AppHide name | Tasks(name).Visible = False |
| AppInfo$(1) AppInfo$(2) AppInfo$(3) AppInfo$(4) AppInfo$(5) AppInfo$(6) AppInfo$(7) AppInfo$(8) AppInfo$(9) AppInfo$(10) AppInfo$(13) AppInfo$(14) AppInfo$(15) AppInfo$(16) AppInfo$(17) AppInfo$(18) AppInfo$(19) AppInfo$(20) AppInfo$(21) AppInfo$(22) AppInfo$(23) AppInfo$(24) AppInfo$(25) AppInfo$(26) AppInfo$(27) |
MsgBox System.OperatingSystem & Chr(32) & System.Version x = Application.Version x = Application.SpecialMode x = Application.Left x = Application.Top x = Application.UsableWidth x = Application.UsableHeight x = Application.WindowState(wdWindowStateMaximize) x = WordBasic.[AppInfo$](9) x = WordBasic.[AppInfo$](10) x = System.MathCoprocessorInstalled x = Application.MouseAvailable x = System.FreeDiskSpace x = Application.International(wdProductLanguageID) x = Application.International(wdListSeparator) x = Application.International(wdDecimalSeparator) x = Application.International(wdThousandsSeparator) x = Application.International(CurrencyCode) x = Application.International(wd24HourClock) x = Application.International(wdInternationalAM) x = Application.International(wdInternationalPM) x = Application.International(wdTimeSeparator) x = Application.International(wdDateSeparator) x = WordBasic.[AppInfo$](26) x = Application.LanguageSettings.LanguageID(msoLanguageIDUI) |
| AppIsRunning(name) | Tasks(name).Exists |
| AppMaximize name AppMaximize |
Tasks(name).WindowState = wdWindowStateMaximize Application.WindowState = wdWindowStateMaximize |
| AppMinimize name AppMinimize |
Tasks(name).WindowState = wdWindowStateMinimize Application.WindowState = wdWindowStateMinimize |
| AppMove name, horizpos, vertpos AppMove horizpos, vertpos |
Tasks(name).Move Left:=horizpos, Top:=vertpos Application.Move Left:=horizpos, Top:=vertpos |
| AppRestore name AppRestore |
Tasks(name).WindowState = wdWindowStateNormal Application.WindowState = wdWindowStateNormal |
| AppSendMessage | Tasks(name).SendWindowMessage |
| AppShow name AppShow |
Tasks(name).Visible = True Application.Visible = True |
| AppSize name, width, height AppSize width, height |
Tasks(name).Resize Width:=width, Height:=height Application.Resize Width:=width, Height:=height |
| AppWindowHeight name, height AppWindowHeight height |
Tasks(name).Height = height Application.Height = height |
| AppWindowPosLeft name, horizpos AppWindowPosLeft horizpos |
Tasks(name).Left = horizpos Application.Left = horizpos |
| AppWindowPosTop name, vertpos AppWindowPosTop vertpos |
Tasks(name).Top = vertpos Application.Top = vertpos |
| AppWindowWidth name, width AppWindowWidth width |
Tasks(name).Width = width Application.Width = width |
| Asc(string) | Asc(string) |
| AtEndOfDocument() | If Selection.Type = wdSelectionIP and Selection.End = ActiveDocument.Content.End - 1 Then atEnd = True |
| AtStartOfDocument() | If Selection.Type = wdSelectionIP and Selection.Start = 0 Then atStart = True |
| AutoMarkIndexEntries | ActiveDocument.Indexes.AutoMarkEntries |
| AutomaticChange | Application.AutomaticChange |
| AutoText | Selection.Range.InsertAutoText |
| AutoTextName$(num, context) | x = ActiveDocument.AttachedTemplate.AutoTextEntries(num).Name |