Word VBA教程:Visual Basic 命令对照表 A

ABCDEFGHIJKLMNOPRSTUVWY

A  
Abs(number) Abs(number)
Activate name Windows(name).Activate

'或

Documents(name).Activate

ActivateObject ActiveDocument.Shapes(1).OLEFormat.Activate

'或

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() '列举 Tasks集合中的元素

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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号