Hi, I managed to get this working. I found that extending the selection allowed capturing of the sentence, but was stopping my find working.
I used the below code to save the selection, expand the selection and copy the sentence, then reinstate the selection.
Code:
Dim selCurrent As Object
Set selCurrent = m_oWordApp.Selection.Range
m_oWordApp.Selection.Expand Unit:=3 ' sentence
sSentenceToSearch = m_oWordApp.Selection
selCurrent.Select