您如何阻止word find.execute（）进入无尽的循环？

Question

我正在使用.NET和VSTO写一个单词加载项。我需要在所有文本的所有情况下搜索页脚。我正在使用Word的find.execute（）循环，如下所示。当它与页脚中表单元格中的内容控件中的文本匹配时，它将进入无尽的循环。它不断回到相同的范围。

为什么此代码会导致无尽的循环？在这一点之后，我该如何告诉Word继续搜索？

using Word = Microsoft.Office.Interop.Word;
...
Word.Range range = headerFooter.Range;
Word.Find find = range.Find;
while (find.Execute(FindText: wildcard,
                    MatchWildcards: true,
                    Forward: true,
                    Wrap: Word.WdFindWrap.wdFindStop))
{
    System.Diagnostics.Trace.TraceInformation(range.Start + ", " + range.End);
}

代码给出了这样的输出：

192, 206
192, 206
192, 206

我尝试将循环内部范围的范围缩小到以下内容，但它仍然永远循环回到原始范围。

{
    System.Diagnostics.Trace.TraceInformation(range.Start + ", " + range.End);
    range.Collapse(Word.WdCollapseDirection.wdCollapseEnd);
}

我正在运行Word版本Microsoft®Word，用于Microsoft 365 MSO（版本2205 Build 16.0.15225.20028）32-bit 。

Answer 1

在此特定实例中，我能够通过将范围推进到下一个表单元格的开头来解决问题。我基于此论坛主题的第二篇文章： https://www.msofficeforums.com/word-vba/40986-infinite-loop-when-finding-styles.html

这是在此实例中修复它的代码。它可能不会在每种情况下解决：

using Word = Microsoft.Office.Interop.Word;
...
Word.Range range = headerFooter.Range;
Word.Find find = range.Find;
while (find.Execute(FindText: wildcard,
                    MatchWildcards: true,
                    Forward: true,
                    Wrap: Word.WdFindWrap.wdFindStop))
{
    results.Add(range.Duplicate);

    // WARNING: In skipping the remainder of the table cell,
    // we could be skipping additional matches.
    if (range.Information[Word.WdInformation.wdInContentControl] && range.Information[Word.WdInformation.wdWithInTable])
    {
        int endOfCell = range.Cells[range.Cells.Count].Range.End;
        range.End = endOfCell;
        range.Start = endOfCell;
        if (range.Information[Word.WdInformation.wdAtEndOfRowMarker])
        {
            range.End += 1;
            range.Start += 1;
        }
    }
}