本示例剪切活动文档的第一个域,并将该域粘贴到插入点。

If ActiveDocument.Fields.Count >= 1 Then
    ActiveDocument.Fields(1).Cut
    Selection.Collapse Direction:=wpsCollapseEnd
    Selection.Paste
End If