Index Value of a Word in a Paragraph

[macropod]

You could use:

Sub Demo()
 Dim Rng As Range, i as Long
 Set Rng = Selection.Range.Paragraphs.First.Range
 Rng.End = Selection.Start
 i = Rng.ComputeStatistics(wdStatisticWords)
 End Sub