Как я могу автоматически выделить и извлечь цветной текст в MS Word?

Question

У меня есть куча документов, которые нужно редактировать. Авторы используют синий текст в некоторых частях документов, чтобы указать, что эти слова необходимо связать.

Спасибо Корнелиус для выделения текста кода:

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 

Я хотел бы остановиться на этом вопросе. Можно ли извлечь только выделенный текст в новый файл слов? Он также должен быть достаточно умным, чтобы знать, что два или более последовательных слова в предложении будут отображаться в одной строке в новом документе, в отличие от каждого слова, получающего свою собственную строку в новом документе. Я полагаю, что он мог искать все выделенные выборы и только переносить их, поскольку весь блок текста будет полностью подсвечен.

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 

Answer 2

Привет, это идеальное решение для вас. Я написал этот код макроса и протестировал его. http://blog.haneefputtur.com/2012/02/macro-to-extract-highlighted-words-from.html