Microsoft Office Forums - View Single Post - Establish a new range after finding a string

RobiNew · 12-15-2023, 01:34 AM

I'm trying to establish a new range after finding a string, so that I can use Find again from the Found point to the end of the document. But the tentative code here below doesn't work. Can someone help? Thanks!

Code:

Dim oRng As Range
Set oRng = ActiveDocument.Range
    With oRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "Title"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .Execute
    End With
'Here I need to fix the starting point of a new Find, but it doesn't work
    oRng.Start = oRng.Find.Found
    oRng.End = ActiveDocument.Range.End
With oRng.Start.Find
.Text:="Section"
.Execute
End With