Thanks for your help with this.
I have something similar, but using the Find command on the Selection.
So if the Selection is modified the Find doesn't work correctly.
Code:
m_oWordDoc.Bookmarks("\StartOfDoc").Select
m_oWordApp.Selection.Find.ClearFormatting
With m_oWordApp.Selection.Find
.Text = sPhraseToFind
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = bMatchCase
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While m_oWordApp.Selection.Find.Execute = True
sSentenceToSearch = m_oWordApp.Selection.Sentences(1)
' Above is incorrect if the found text is the last row in a table
' Additional Code
End If
Loop
End With