Word VBA教程:InsertDateTime方法

以文本或 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。由于选择或安装的语言支持(例如美国英语)不同,该参数可能无法使用。

VBA示例

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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号