如何判断单词选择是否在VBA中进行了修订

Question

我正在Word 2010中编写一个VBA过程，用于在文档中搜索搜索词。如果找到它，我想运行一些其他代码，但前提是没有修改结果文本的一部分。所以我不能只循环浏览文档修订，因为我需要找到未修订的文本。我想从搜索中排除修订后的文本（但我在 Selection.Find 下找不到这样做的选项），或者在搜索执行后检查所选文本是否被修订（但我在 Selection.Range.Revisions 下也找不到这样做的选项）。

Answer 1

根据我刚刚进行的快速尝试和测试，答案似乎很简单。您需要找到适当的文本范围并检查.Revisions property如下所示（此处为Selection）：

If Selection.Range.Revisions.Count > 0 Then
     'selected range is inside revision
Else 
     'selected range is not revised
End if