Microsoft Office Forums - View Single Post - [Solved] I need to convert shaded text into highlighted text on about 80 different long documents. VBA macro?

gmaxey · 05-27-2015, 03:00 PM

Something like:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
  For Each oPar In ActiveDocument.Paragraphs
   If oPar.Range.Shading.BackgroundPatternColor <> wdColorAutomatic Then
     oPar.Range.Shading.BackgroundPatternColor = wdColorAutomatic
     oPar.Range.HighlightColorIndex = wdYellow
   End If
  Next oPar
lbl_Exit:
  Exit Sub
End Sub

See: http://gregmaxey.com/word_tip_pages/...ng_macros.html for instructions to employ the VBA code provided above.

See: http://gregmaxey.com/word_tip_pages/...der_addin.html
The code above could easily be adapted to be run as a user defined batch process.