Index Value of a Word in a Paragraph

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

Code:

---

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.

I found the following that seems to work. Is there another way of doing it that might be better?

Code:

---

Sub test()
 Dim oRng As Range
 Dim WrdInd As String
 Set oRng = Selection.Range
 oRng.Expand Unit:=wdParagraph
 Set oRng = ActiveDocument.Range( _
 Start:=oRng.Start, _
 End:=Selection.Start)
 WrdInd = oRng.ComputeStatistics(wdStatisticWords) + 1
End Sub

---

You could use:

Code:

---

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

---

That works great! Thanks again for your help.

I have a bit of an issue. The code you gave me doesn't count non-letters (which I would expect) but

Code:

---

wapp.Paragraphs(1).Range.Words(4).Select

---

counts non-letters. So if I was to use

Code:

---


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

---

it highlights the wrong word. Is there a way of doing this where either option counts the same?

You could use something like:

Code:

---

Sub Demo()
    Dim Rng As Range, i As Long, j As Long
    With Selection
      Set Rng = .Paragraphs.First.Range
      Rng.End = .Start
      i = Rng.ComputeStatistics(wdStatisticWords)
      With .Paragraphs.First.Range
        For j = i To .Words.Count
          Rng.End = .Words(j).End
          If Rng.ComputeStatistics(wdStatisticWords) = i Then
            Rng.Words.Last.Select
            Exit For
          End If
        Next
      End With
    End With
End Sub

---

but this seems like a whole lot of circumlocution for something you could achieve with a single line of code:
Selection.Words.First.Select
And then there's the question of why you're selecting anything at all, since you rarely need to do that with VBA.

"Selection" was just for ease of discussing the problem. I'm using .find of a range to get the word. I then need to get the previous 3 words in front of what is found. I'm guessing it might just be easier to just do a loop using

Code:

---

Rng.Paragraphs(1).Range.Words(i).text

---

to search for the correct string. What do you think?

Why don't you use Find for the entire string? If you don't know what the previous two words are, use wildcards.