Conditional Find and Replace Styles

creativeconnect · June 28th, 2007, 07:51 PM

Hi
I have written code that goes through a long document and replaces one set of styles with another. I am using Find and Replace and it works OK, but I am stuck with a conditional bit that goes like this:
When it finds Heading 3, if the preceding paragraph style is Heading 1 or Body text, replace Heading 3 with Heading 2 (otherwise leave it)

This is the straightforward replacement, but it needs the conditional bit (I guess it needs a loop, but I just can't get it right)

      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Style = ActiveDocument.Styles("Heading 3")
        .Text = ""
        .Replacement.Style = ActiveDocument.Styles("Heading 2")
        .Execute Replace:=wdReplaceAll
    End With

BrianWren · August 3rd, 2007, 12:15 PM

Try this:

Code:

Public Sub ParaStyle()

    ' Start at the beginning
    Selection.HomeKey wdStory

    Dim i       As Integer  ' Keep track of where we are
    Dim MyStyle As String   ' âRememberâ styles weâve seen

    i = 1                                       ' Paragraph weâre in.
    MyStyle = Selection.ParagraphFormat.Style   ' Get the 1st Paraâs style

    ' I couldn't find how to figure out the No. of the cur. para. . . .
    ' Thatâs why I needed to use i, and the Do-Until loop.
    Do Until i = Application.ActiveDocument.Paragraphs.Count

        If Selection.ParagraphFormat.Style = "Heading 3" Then
            If MyStyle <> "Heading 1" And MyStyle <> "Body text" Then
                Selection.ParagraphFormat.Style = "Heading 2"
            End If
        End If

        MyStyle = Selection.ParagraphFormat.Style   ' Store current style
                                                    ' This could be an âElseâ
                                                    ' in the âIf,â above.
        Selection.Move wdParagraph, 1
        i = i + 1

    Loop

End Sub