I need some code to replace one set of paragraph and character styles for another in a document. I have written a module using Find and Replace but it is very cumbersome, and I'm sure you guys will be able to tell me a neater way. It just needs to replace e.g. "main heading" with "heading 1" etc. and then I need to delete the old customised styles to tidy up.

Here is the way of iterating though paragraphs

Sub Swap_styles()

For Each Para In ActiveDocument.Paragraphs

    Select Case Para.Style

        Case "Normal"

            'Do nothing

        Case "Heading 1"

              Para.Style = "H1"

        Case Else



    End Select
Next Para
End Sub

Find should be faster if your styles to be replaced are less

Cheers
Shasur

http://www.vbadud.blogspot.com

Many thanks - that's very concise. There's just one thing I've noticed, however, that if I use it where some words in the paragraph have additional character formatting (e.g. style appears in style box as "normal + bold"), the main style is ignored, whereas the Find and Replace seems to deal with it OK, subsituting the style and leaving the extra formatting in place, which is what I need.
Wendy