A "word" in "Word" can be a pernickety thing. Provides you have something like this:
This is paragraph one
Word1 this is paragraph two
This is paragraph three
Word2 this is paragraph four
Then something like this should work:Sub DeleteBasedOnFirstWord()
Dim oPar as Word.Paragraph
For Each oPar in ActiveDocument.Range.Paragraphs
Select Case Trim(oPar.Range.Words(1))
Case "Word1", "Word2"
Replace "Word1" and "Word2" with the actual words.