trying to retrieve the end range of a range object
Posted on 2007-11-25
I want to retrieve the end range of a range object but my code in the follow only gave a return of value 1:
Dim x As Range, y As Range, z As Range
Dim xrnt As Long, yrnt As Long, zrnt As Long
Set x = ActiveDocument.Paragraphs(1).Range
Set y = ActiveDocument.Paragraphs(1).Range
xrnt = x.Start
yrnt = y.End
Set z = ActiveDocument.Range(xrnt, yrnt)
if z.find.execute("_")=ture then
I and looking for _ in a text and need to know the position of that _.
What could I have done differently to get the right result?