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

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