Visual Basic Equivalents 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 dynamic dialog functionality has been replaced by custom user forms. Refer to the topics in Microsoft Forms Help (FM20.HLP>LANGREF).
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() ' enumerate the DocumentProperties collection

For Each aProp In ActiveDocument.CustomDocumentProperties

    If aProp.Name = name Then itExists = True

Next aProp

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

' or

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

Drawing object statements and functions Use the properties and methods of the following objects: Shape, Shapes, and ShapeRange.
DropDownFormField ActiveDocument.FormFields.Add Range:=range, Type:=wdFieldFormDropDown
DropListBox ComboBox control