| 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 |
| 图形对象语句和函数 | 使用下列对象的属性和方法：Shape、Shapes 和 ShapeRange。 |
| DropDownFormField | ActiveDocument.FormFields.Add Range:=range, Type:=wdFieldFormDropDown |
| DropListBox | 组合框控件 |