本示例更新所选内容中的下一个域。

If Not (Selection.NextField Is Nothing) Then
    Selection.Fields.Update
End If