Microsoft Office Forums - View Single Post - Get the position of a string from the cursor position forward

Guessed · 02-21-2023, 04:02 PM

Word's vba doesn't normally do well with 'lines' because the wrapping of lines is dynamic (reliant on typeface, size, column width, text wrapping etc) and not structural. Paragraphs are the units that we can code with reliably. So let's assume you meant paragraphs.

Code:

Sub FindAhead()
  Dim aRng As Range, sFind As String, iResp As Integer, lngStart As Long, lngFound As Long
  sFind = "Save time in Word"
  Set aRng = Selection.Range
  lngStart = aRng.Start
  aRng.End = ActiveDocument.Range.End
  With aRng.Find
    .ClearFormatting
    .Text = sFind
    .Forward = True
    If .Execute Then
      lngFound = ActiveDocument.Range(lngStart, aRng.Paragraphs(1).Range.End).Paragraphs.Count - 1
      iResp = MsgBox("Do you want to jump to the next found instance?", vbYesNo, lngFound & " paragraphs ahead")
      If iResp = vbYes Then aRng.Select
    Else
      MsgBox "Ain't no more", vbCritical + vbOKOnly, "None found"
    End If
  End With
End Sub