如何在 MS Word 中自动突出显示和提取彩色文本？答案

【问题标题】：How can I automatically highlight and extract colored text in MS Word?如何在 MS Word 中自动突出显示和提取彩色文本？
【发布时间】：2010-07-29 13:01:29
【问题描述】：

我有一堆文档需要编辑。作者在文档的某些部分使用蓝色文本表示需要链接这些词。

感谢cornelius提供的高亮文本代码：

Sub HighlightNotBlack()
    Dim char As Range

For Each char In ActiveDocument.Characters
If char.Font.Color <> wdColorAutomatic And char.Font.Color <> wdColorBlack Then
    char.HighlightColorIndex = wdYellow
End If
Next
End Sub

我想扩展这个问题。是否可以仅将突出显示的文本提取到新的 word 文件中？它还应该足够聪明，知道一个句子中的两个或多个连续单词都将出现在新文档的一行中，而不是每个单词在新文档中都有自己的行。我认为它可以查找所有突出显示的选择，并且只将它们带过来，因为整个文本块将被完全突出显示

【问题讨论】：

您可能应该打开一个新问题，因为它与您已经回答的原始问题有点不同。

标签： vba text extract ms-word

【解决方案1】：

我带来了这样的东西。它突出显示活动文档中的所有非黑色和非自动字符。

Sub HighlightNotBlack()
Dim char As Range

For Each char In ActiveDocument.Characters
    If char.Font.Color <> wdColorAutomatic And char.Font.Color <> wdColorBlack Then
        char.HighlightColorIndex = wdYellow
    End If
Next
End Sub

【讨论】：

感谢您的帮助！我想知道你是否知道如何让它忽略超链接文本。最终，最好有一个宏将突出显示的单词提取到一个单独的文件中，每个突出显示的选择都在文件中自己的行中。我可能要求的太多了，但如果能在此基础上进行扩展就太好了！