VBA-Word将修订版扩展到整个单词

Question

我正在分析修订后的文件。它们都启用了更改跟踪，并包含许多修订。

这些文件需要对整个单词进行修订，而不是对其进行修订。由于这些修订用于质量保证，我不能将任何未经修订的单词标记为修订。 因此，我必须将修改后的字母翻译成完全修改过的单词，但不能触及其他单词。

我想自动化这个。我想我可以这样做：

dim wrdRange as Range
For Each wrd In ThisDocument.Words
    Set wrdRange = wrd
    If wrdRange.Revisions.Count <> 0 Then
        wrdRange.Text = wrdRange.Text
    End If
Next wrd

它正在中途运行，但每次遇到修订后的单词（部分或全部）时，它都会修改另一个单词（修订计数为1）。

所以问题是如何解决这个问题。

另外，我完全不确定这是执行任务的最佳方式。我觉得不是。如果有人可以提供另一个方向，我会很乐意遵循它（我不喜欢我的方法 - 特别是迭代每个单词）。