InsertDateTime Method

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