Hi Michael,
Try:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim RngSnt As Range, RngTmp As Range, strWrd As String
Dim i As Integer, bWrd As Boolean, ArrWrds As String
ArrWrds = "Wind,Winds,Donaway,Sagway"
With ActiveDocument
For Each RngSnt In .Sentences
bWrd = False
With RngSnt
strWrd = Trim(.Words.First.Text)
For i = 0 To UBound(Split(ArrWrds, ","))
If Split(ArrWrds, ",")(i) = strWrd Then bWrd = True: Exit For
Next
If bWrd = False Then
Set RngTmp = RngSnt
RngTmp.End = RngTmp.End - 1
RngTmp.Delete
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub