WORD的VBA：怎样把插入点移动到字符“武汉”之后

1.WORD的VBA：怎样把插入点移动到字符“武汉”之后

Sub F()

ActiveDocument.Content.MoveStart wdStory

With Selection.Find

.Forward = True

.ClearFormatting

.MatchWholeWord = True

.MatchCase = False

.Wrap = wdFindContinue

If .Execute（"武汉"） Then Selection.Move wdWord, 1

End With

End Sub