本示例在插入点添加一个 DATE 域。

With Selection
    .Collapse Direction:=wpsCollapseStart
    .Fields.Add Range:=Selection.Range, Type:=wpsFieldDate
End With