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

ABCDEFGHIJKLMNOPRSTUVWY

D  
Date$() Date
DateSerial() DateSerial
DateValue() DateValue
Day() Day
Days360() DateDiff
DDEExecute channel, command DDEExecute channel, command
chan = DDEInitiate (application, topic) chan =DDEInitiate(application, topic)
DDEPoke channel, item, data DDEPoke channel, item, data
data = DDERequest$(channel, item) data =DDERequest(channel, item)
DDETerminate channel DDETerminate channel
DDETerminateAll DDETerminateAll
Declare Declare
DefaultDir$() x =DefaultFilePath(WdDefaultFilePath)
DeleteAddIn name Addins(name).Delete
DeleteBackWord Selection.Delete Unit:=wdWord, Count:=-1
DeleteButton CommandBars(name).Controls(num).Delete
DeleteDocumentProperty name ActiveDocument.CustomDocumentProperties(name).Delete
DeleteWord Selection.Words(1).Delete
DemoteList Selection.Range.ListFormat.ListOutdent
DemoteToBodyList Selection.Paragraphs(1).OutlineDemoteToBody
Dialog, Dialog() Dialogs(WdWordDialog).Show
DialogEditor ShowVisualBasicEditor = True
Dim Dim
DisableAutoMacros WordBasic.DisableAutoMacros
DisableInput Application.EnableCancelKey = WdEnableCancelKey
DlgControlId() WordBasic 中的动态对话功能已由自定义用户窗体所取代。请查阅“Microsoft 窗体帮助”中的相应主题。
DlgEnable, DlgEnable()  
DlgFilePreview, DlgFilePreview$()  
DlgFocus, DlgFocus$()  
DlgListBoxArray, DlgListBoxArray()  
DlgLoadValues, DlgLoadValues()  
DlgSetPicture  
DlgStoreValues  
DlgText, DlgText$()  
DlgUpdateFilePreview  
DlgValue, DlgValue()  
DlgVisible, DlgVisible()  
DocClose ActiveWindow.Close
DocMaximize, DocMaximize() ActiveWindow.WindowState = wdWindowStateMaximize
DocMinimize, DocMinimize() ActiveWindow.WindowState = wdWindowStateMinimize
DocMove HorizPos, VertPos With ActiveWindow

    .Top = VertPos

    .Left = HorizPos

End With

DocRestore ActiveWindow.WindowState = wdWindowStateNormal
DocSize width, height With ActiveWindow

    .Height = width

    .Width = height

End With

DocSplit, DocSplit() ActiveWindow.SplitVertical = 50

x = ActiveWindow.SplitVertical

DocumentHasMisspellings() x = ActiveDocument.SpellingErrors.Count
DocumentPropertyExists() '列举 DocumentProperties集合中的元素

For Each aProp In ActiveDocument.CustomDocumentProperties

    If aProp.Name = name Then itExists = True

Next aProp

DocumentPropertyName$() x = ActiveDocument.CustomDocumentProperties(num).Name

'或

x = ActiveDocument.BuiltInDocumentProperties(num).Name

DocumentPropertyType() x = ActiveDocument.CustomDocumentProperties(name).Type
DocumentProtection() x = ActiveDocument.ProtectionType
DocumentStatistics FileName, Directory, Template, Title, Created, LastSaved, LastSavedBy, Revision, Time, Printed, Pages, Words, Characters, Paragraphs, Lines, FileSize With ActiveDocument

    var1 = .Name

    var2 = .Path

    var3 = .BuiltInDocumentProperties(wdPropertyTemplate)

    var4 = .BuiltInDocumentProperties(wdPropertyTitle)

    var5 = .BuiltInDocumentProperties(wdPropertyTimeCreated)

    var6 = .BuiltInDocumentProperties(wdPropertyTimeLastSaved)

    var7 = .BuiltInDocumentProperties(wdPropertyLastAuthor)

    var8 = .BuiltInDocumentProperties(wdPropertyRevision)

    var9 = .BuiltInDocumentProperties(wdPropertyVBATotalEdit)

    var10 = .BuiltInDocumentProperties(wdPropertyTimeLastPrinted)

    var11 = .BuiltInDocumentProperties(wdPropertyPages)

    var12 = .BuiltInDocumentProperties(wdPropertyWords)

    var13 = .BuiltInDocumentProperties(wdPropertyCharacters)

    var14 = .BuiltInDocumentProperties(wdPropertyParas)

    var15 = .BuiltInDocumentProperties(wdPropertyLines)

    var16 = .BuiltInDocumentProperties(wdPropertyBytes)

End With

DocWindowHeight ActiveWindow.Height = height
DocWindowPosLeft ActiveWindow.Left = horizpos
DocWindowPosTop ActiveWindow.Top = vertpos
DocWindowWidth ActiveWindow.Width = width
DoFieldClick Selection.Fields(1).DoClick
DOSToWin$() x =WordBasic.[DOSToWin$](StringToTranslate)
DottedUnderline, DottedUnderline() Selection.Font.UnderLine= wdUnderlineDotted

x = Selection.Font.UnderLine

DoubleUnderline, DoubleUnderline() Selection.Font.UnderLine = wdUnderlineDouble

x = Selection.Font.UnderLine

图形对象语句和函数 使用下列对象的属性和方法:ShapeShapesShapeRange
DropDownFormField ActiveDocument.FormFields.Add Range:=range, Type:=wdFieldFormDropDown
DropListBox 组合框控件

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号