Question

以文本或 TIME 域的方式插入当前的日期或时间，或将两者都插入。

expression.InsertDateTime(DateTimeFormat,InsertAsField,InsertAsFullWidth,DateLanguage,CalendarType)

expression 必需。该表达式返回一个 Range 或 Selection 对象。

DateTimeFormat Variant 类型，可选。显示日期或时间，或同时显示日期和时间所用的格式。如果省略该参数，Microsoft Word 将使用 Windows“控制面板”中的“区域设置”所规定的短日期样式。

InsertAsField Variant 类型，可选。如果本属性为 True，则以 TIME 域的形式插入指定的信息。默认值为 True。

InsertAsFullWidth Variant 类型，可选。如果本参数为 True，则以双字节数字的形式插入指定信息。由于选择或安装的语言支持（例如美国英语）不同，该参数可能无法使用。

DateLanguage Variant 类型，可选。设置显示日期或时间的语言形式。可取下列 WdDateLanguage 常量之一：wdDateLanguageBidi 或 wdDateLanguageLatin。由于选择或安装的语言支持（例如美国英语）不同，该参数可能无法使用。

CalendarType Variant 类型，可选。设置显示日期或时间的日历类型。可取下列 WdCalendarTypeBi 常量之一：wdCalendarTypeBidi 或 wdCalendarTypeGregorian。由于选择或安装的语言支持（例如美国英语）不同，该参数可能无法使用。

示例

本示例以 TIME 域的形式插入当前日期。可能的结果是“11/18/1999”。

Selection.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _
 InsertAsField:=True

本示例在活动文档的末尾插入当前日期。可能的结果是“01/12/99”。

With ActiveDocument.Content
 .Collapse Direction:=wdCollapseEnd
 .InsertDateTime DateTimeFormat:="MM/dd/yy", _
 InsertAsField:=False
End With

本示例在活动文档的页脚以 TIME 域的形式插入当前日期。

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range _
 .InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _
 InsertAsField:=True