none
搜索的问题 RRS feed

  • 问题

  • 按照 MSDN 中的解释

    If you've gotten to the Find object from the Selection object, the selection is changed when text matching the find criteria is found. If you've gotten to the Find object from the Range object, the selection isn't changed when text matching the find criteria is found, but the Range object is redefined.

    环境是:应用程序 Office Word 2007 在 Windows 7。

    现在我有一份 Word 文件,其中包含一个表格,当中某一单元格的格式是“H2”,因此它的段落大纲级别也是 2,注意这个单元格不包含文本,除此单元格之外文档中没有其它大纲级别为2的段落

    使用 VBA,当我定位到文件的最后,向前搜索段落大纲为 2 的内容,长时间无反应,Range/Selection 仍在文件的未端。

     Dim rng As Range Set rng = Application.ActiveDocument.Content

     rng.Collapse wdCollapseEnd

    Dim fnd As Find Set fnd = rng.Find

    With fnd

    .Forward = False

    .ParagraphFormat.OutlineLevel = 2

    End With

    fnd.Execute

    Debug.Print fnd.Found '输出True

    rng.Select '仍在文件尾部

     

     相同的操作使用 Word 搜索对话框,在长时间无反应后,提示“没有匹配”。 此外,如果是向下搜索,则很快提示“没有匹配”。 请问有何解决办法,或是相关订正包可使用?

    2011年8月31日 8:13

答案