Как автоматически выделить и извлечь цветной текст в MS Word? - PullRequest
Новая
       8

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

2 голосов
/ 29 июля 2010

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

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

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

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

1 Ответ

1 голос
/ 29 июля 2010

Я пришел с чем-то вроде этого.Он выделяет все не черные и неавтоматические символы в активном документе. 

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
...