Sub DelTexts()
Dim vFind As Variant
Dim oRng As Word.Range
Dim i As Integer
    vFind = Array("xxx", "yyy")
    For i = 0 To UBound(vFind)
        Set oRng = ActiveDocument.Range
        With oRng.Find
            Do While .Execute(FindText:=vFind(i), MatchWildcards:=True)
                If oRng.Information(wdActiveEndPageNumber) > 1 Then
                    oRng.Text = ""
                End If
                oRng.Collapse 0
            Loop
        End With
    Next i
lbl_Exit:
    Exit Sub
End Sub