☰

如何在 MS Word 2016 中选择所有已删除（或所有已添加）的文本（跟踪更改）

tag-icon • tag-icon microsoft-word colors text-formatting editing
如何在 MS Word 2016 中选择所有已删除（或所有已添加）的文本（跟踪更改）

这是问题的变体 MS Word：如何一次性格式化所有更改跟踪的文本？

我发现使用 MS Word（我使用的是 2016 版）中为跟踪更改提供的颜色很困难。颜色太少，而且太暗或太模糊，以至于跟踪更改、删除/添加的文本不会在屏幕上弹出来引起我的注意。通常小尺寸的字符（如 . ， ; a）太小，以至于添加/删除不会被注意到，因为它们不太明显，所以我最终没有注意它们。下划线 _ 或破折号 - 或分隔符 - 是另一个问题，因为它们被用作跟踪更改中的删除/添加样式，如果那个字符曾经存在并被删除，或者本来不存在并被添加，那么就不可能弄清楚，因为那个字符有两个含义。

我为添加（红色）和删除（蓝色）赋予了不同的颜色，因此效果稍微好一些，但是这些颜色太暗淡了，仍然无法引起注意。

我想一次性选择所有已删除的文本并用（比如说）黄色突出显示，我想一次性选择所有添加的文本并用（比如说）绿色突出显示，我想这样就不会被忽视了。

我已经探索过样式，但找不到用于跟踪更改文本的任何类别。

如何在 MS Word 2016 (w8) 中一次性选择所有已删除的文本，然后选择所有已添加的文本（跟踪更改）来执行上述操作？

谢谢。

添加

在此页面上，您将看到几个宏，它们逐一转到每个跟踪更改的文本/短语。这些宏将跟踪更改的文本提取到 excel 或 word 文件中，或仅显示在屏幕上。 http://answers.microsoft.com/en-us/office/forum/office_2007-word/possible-to-export-word-track-changes-information/e0dee9dc-aedb-41d3-92bf-8dc609cc75af?db=5&auth=1

我不太了解 vba，有人可以从那里获取任何宏并进行修改，以便它只逐一转到所有添加和/或所有删除的跟踪更改文本，然后只需更改颜色或突出显示或其他内容。

谢谢。

答案1

我修改了您提供的链接中的一个宏。下面的宏在 Word 2010 中对我有用，所以也许在 2016 中也有效。

Sub MarkChanges()
Dim arev As Revision
With ActiveDocument
    For Each arev In .Revisions
        If arev.Type = wdRevisionDelete Then
            arev.Range.HighlightColorIndex = wdYellow
        ElseIf arev.Type = wdRevisionInsert Then
            arev.Range.HighlightColorIndex = wdGreen
        End If
    Next arev
End With
End Sub

答案2

如果需要的话，修改了 endrju 的宏以删除高亮。

Sub RemoveHighlightTrackChanges()
Dim arev As Revision
With ActiveDocument
    For Each arev In .Revisions
        If arev.Type = wdRevisionDelete Then
            arev.Range.HighlightColorIndex = wdNoHighlight
        ElseIf arev.Type = wdRevisionInsert Then
            arev.Range.HighlightColorIndex = wdNoHighlight
        End If
    Next arev
End With
End Sub

我自己尝试过了。它有效。

谢谢。

相关内容