Index Value of a Word in a Paragraph

[heedaf]

Is there a way to get the index value of a word in a paragraph. Similar to

Sub test()
    Dim wapp As Word.Range
   
    Set wapp = ActiveDocument.Range

    wapp.Paragraphs(1).Range.Words(4).Select 'Highlights the 4th word in the paragraph
End Sub

but in reverse? I know I can just loop through the paragraph but it just seems like there would be a way of getting the index number of the word in the paragraph.