Sample macro that uses a loop to find text in Word documents

Sub EditFindLoopExample()
'This example inserts "Tip: " at the beginning of
' every paragraph formatted with the Heading 3 style.
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Style = wdStyleHeading3
        'The Do...Loop statement repeats a series of
        ' actions each time this style is found.
        Do While .Execute(Forward:=True, Format:=True) = True
                With .Parent
                    'If the found text is the last
                    ' paragraph in the document...
                    If .End = ActiveDocument.Content.End Then
                        .StartOf Unit:=wdParagraph, Extend:=wdMove
                        .InsertAfter "Tip: "
                        Exit Do
                    'If the found text is *not* the last
                    ' paragraph in the document...
                    Else
                        .StartOf Unit:=wdParagraph, Extend:=wdMove
                        .InsertAfter "Tip: "
                        .Move Unit:=wdParagraph, Count:=1
                    End If
                End With
        'Goes back to the beginning of the Do...Loop statement.
        Loop
    End With
End Sub