本示例更新所选内容中的下一个域。
If Not (Selection.NextField Is Nothing) Then
Selection.Fields.Update
End If