title: How can I automatically highlight and extract colored text in MS Word?
body: <p>I have a bunch of documents that need to be edited. The authors use blue text in some parts of the documents to indicate that those words need to be linked.</p>
  
  <p>Thank you cornelius for the highlight text code:</p>
  
  <pre><code>Sub HighlightNotBlack()
      Dim char As Range
  
  For Each char In ActiveDocument.Characters
  If char.Font.Color &lt;&gt; wdColorAutomatic And char.Font.Color &lt;&gt; wdColorBlack Then
      char.HighlightColorIndex = wdYellow
  End If
  Next
  End Sub
  </code></pre>
  
  <p>I would like to expand on this question. Is it possible to extract out only the highlighted text into a new word file? It should also be smart enough to know that two or more consecutive words in a sentence would all appear on one line in the new document as opposed to each word getting its own line in the new document. I figure it could look for all highlighted selections and only bring those over since the whole block of text would be entirely highlighted</p>