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