下面的示例在文档中向前搜索“Kingsoft”。如果找到了,就自动选定该词。

With Selection.Find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Wrap = wdFindContinue
    .Execute FindText:="Kingsoft"
End With