Question

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

感谢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文件中？它也应该足够聪明，知道句子中的两个或多个连续单词都会出现在新文档的一行中，而不是每个单词在新文档中都有自己的行。我认为它可以查找所有突出显示的选项，并且只会将这些选项带过来，因为整个文本块将完全突出显示

Answer 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

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

1 个答案: