急, 在线等！Cells.Find，参数用Word搜索的Selection.Text，搜索无结果

Set rngFind = Cells.Find(What:=docApp.Selection.Text,          …… Set rngFind = Cells.Find(What:=docApp.Selection