Sub Find_Then_IF_Macro()
' Example by Bird
'
' This first section is the Find string - the only really important
' line is the one in RED, as this is what we are searching for

    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "dog"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

' This next part is where we decide on the action to be taken if
' the text we are looking for IS present.
' I just chose to move the cursor 5 places to the right!
    If Selection.Find.Execute = True Then
        Selection.MoveRight Unit:=wdCharacter, Count:=5

' This next section is what we want to happen if the text we are
' looking for is NOT found; in this case, I have stopped the code
' by using Exit Sub (i.e. STOP)
    Else
        If Selection.Find.Execute = False Then
            Exit Sub

' Now, to finish off, we have to add an End If statement for
' every If that we had.
' NOTE: If you had values other than 'Yes/No' or 'True/False'
' then you could have more Else, If statements.
        End If
    End If
End Sub