Macro for formatting heading styles

Question

I'm working with a template that uses character styles for bold and italics. I need a macro that finds all instances of bold or italics that were applied as direct formatting (ie Ctrl+I, Ctrl+B) and replaces them with the correct character style. However, simply searching for bold or italic font and replacing it with the style also changes the formatting in all the headings that are bold or italic (although they retain their paragraph styles). So after I've changed the bold and italics to character styles, I need a way to find all instances of Heading 1, Heading 2 etc, clear the character style formatting and reapply the correct heading paragraph style. Or, a way of applying the character styles for bold and italics everywhere EXCEPT headings. I need to do this across the entire document.

I'd really appreciate any suggestions!

Answer 1

Try the following, inserting the name of your required style in place of [bold style]:

Selection.HomeKey wdStory

Selection.Find.Font.Bold = True

With Selection.Find

    Do While .Execute(FindText:="", Forward:=True, _

    MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = True

        If Left(Selection.Style, 7) <> "Heading" Then

            Selection.Style = "[bold style]"

            Selection.Collapse wdCollapseEnd

        End If

    Loop

End With

and the same code with appropriate substitutions for Italic

Answer 2

Perfect - thanks Doug!