InsertDateTime 方法

       

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

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

expression   必需。该表达式返回一个 RangeSelection 对象。

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

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

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

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

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

示例

本示例以 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