Inserts the current date or time, or both, either as text or as a TIME field.
expression.InsertDateTime(DateTimeFormat, InsertAsField, InsertAsFullWidth, DateLanguage, CalendarType)
expression Required. An expression that returns a Range or Selection object.
DateTimeFormat Optional Variant. The format to be used for displaying the date or time, or both. If this argument is omitted, Microsoft Word uses the short-date style from the Windows Control Panel (Regional Settings icon).
InsertAsField Optional Variant. True to insert the specified information as a TIME field. The default value is True.
InsertAsFullWidth Optional Variant. True to insert the specified information as double-byte digits. This argument may not be available to you, depending on the language support (U.S. English, for example) that you’ve selected or installed.
DateLanguage Optional Variant. Sets the language in which to display the date or time. Can be either of the following WdDateLanguage constants: wdDateLanguageBidi or wdDateLanguageLatin. This argument may not be available to you, depending on the language support (U.S. English, for example) that you’ve selected or installed.
CalendarType Optional Variant. Sets the calendar type to use when displaying the date or time. Can be either of the following WdCalendarTypeBi constants: wdCalendarTypeBidi or wdCalendarTypeGregorian. This argument may not be available to you, depending on the language support (U.S. English, for example) that you’ve selected or installed.
Example
This example inserts a TIME field for the current date. A possible result might be "November 18, 1999."
Selection.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _
InsertAsField:=True
This example inserts the current date at the end of the active document. A possible result might be "01/12/99."
With ActiveDocument.Content
.Collapse Direction:=wdCollapseEnd
.InsertDateTime DateTimeFormat:="MM/dd/yy", _
InsertAsField:=False
End With
This example inserts a TIME field for the current date in the footer for the active document.
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range _
.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _
InsertAsField:=True