本示例移至下一个域,并选定该域。

With Selection
    Set myRange = .GoToNext(What:=wpsGoToField)
    .MoveRight wpsStory, Extend:=wpsExtend
    .Fields(1).Select
End With