Visual Basic Equivalents A
Visual Basic Equivalents A
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.
aa158435(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).mdaa158466(v=office.10).mdaa158466(v=office.10).mdaa158468(v=office.10).mdaa158468(v=office.10).md
| 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 |