NextField 方法

       

选定下一个域。如果找到了一个域,则本方法返回 Field 对象,如果没有找到,则本方法返回 Nothing

expression.NextField

expression   必需。该表达式返回一个 Selection 对象。

示例

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

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

本示例选定所选内容中的下一个域,并在状态栏显示一条信息(如果找到了一个域)。

Set myField = Selection.NextField
If Not (myField Is Nothing) Then StatusBar = "Field found"