I need to convert shaded text into highlighted text on about 80 different long documents. VBA macro?

gmaxey · #2 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to convert text to endnote?	Orifacious	Word VBA	27	03-29-2022 02:58 PM
Hide all text in shaded table cells	ugcheleuce	Word VBA	3	03-04-2015 10:28 PM
How to make a style with shaded background and indented text?	Katarina	Word	4	03-25-2014 01:12 AM
Formatting- Apply changes to highlighted text results in same change to other text	sential	Word	6	01-10-2014 03:22 PM
Macro to mark non-coloured/non-highlighted text as hidden	PeterB	Word	0	10-28-2009 07:54 AM