Excuse me, the right name is wordHilite
hiliteList.Add 0, 32767
Set wordHilite = pdPage.CreateWordHilite(hiliteList)
For idx = 0 To wordHilite.GetNumText - 1
'taking the word for searching
word = Trim(wordHilite.GetText(idx))
If word = wordFind Then
Debug.Print wordHilite.GetText(idx)
Exit For
End If
Next