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 |