How can I highlight text between cursor and find target?

I am very familiar with Basic (VBA) and am learning the ins and outs of the
Basic used with Word. I assume that one defines a variable in some way
related to a highlighted item.; I wish to highlight text between the cursor
and the target of a find.

Greg
Wed Mar 29 11:48:36 CST 2006

Try:

Sub Test()
Dim oRng As Word.Range
Dim oHLRng As Word.Range
Set oRng = ActiveDocument.Content
Set oHLRng = oRng.Duplicate
With oRng.Find
.Text = "good"
.Execute
If .Found Then
oHLRng.Start = Selection.Range.Start
oHLRng.End = oRng.Start
oHLRng.HighlightColorIndex = wdYellow
End If
End With
End Sub

Helmut
Wed Mar 29 12:12:41 CST 2006

Hi Cleave,

like this, and in some other ways:

Sub test001264()
Dim sTmp As String ' a temporary string
Dim lPos As Long ' a position in the doc
Dim rTmp As Range ' a temporary range
sTmp = "quickx"

With Selection
.Collapse
lPos = .Start
Set rTmp = .Range
End With
With rTmp.Find
.Text = sTmp
If .Execute Then
rTmp.SetRange lPos, rTmp.End - Len(sTmp)
rTmp.Select ' for testing only
rTmp.HighlightColorIndex = wdYellow
End If
End With
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Cleave
Wed Mar 29 15:42:05 CST 2006



"Helmut Weber" wrote:

> Hi Cleave,
>
> like this, and in some other ways:
>
> Sub test001264()
> Dim sTmp As String ' a temporary string
> Dim lPos As Long ' a position in the doc
> Dim rTmp As Range ' a temporary range
> sTmp = "quickx"
>
> With Selection
> .Collapse
> lPos = .Start
> Set rTmp = .Range
> End With
> With rTmp.Find
> .Text = sTmp
> If .Execute Then
> rTmp.SetRange lPos, rTmp.End - Len(sTmp)
> rTmp.Select ' for testing only
> rTmp.HighlightColorIndex = wdYellow
> End If
> End With
> End Sub
>
> --
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Win XP, Office 2003
> "red.sys" & Chr$(64) & "t-online.de"
>
Thanks, Greg and Helmut - I'll try these as I get deeper into it. But how
about this - in recording a macro (usually my first step at going to Basic)
how does one use the find and highlight the text between the cursor and
target? I've tried some key combinations but don't get the results.

Dick

Greg
Wed Mar 29 20:41:50 CST 2006

Dick,

AFAIK, you can't get there from here. By using the recorder you are
only finding whatever it is that you put in the find box there is no
way that I know of to use keystrokes to define area between the found
text and the IP.

Jonathan
Thu Mar 30 03:39:48 CST 2006


"Greg" <gmaxey@mvps.org> wrote in message
news:1143686510.630735.225870@v46g2000cwv.googlegroups.com...
> Dick,
>
> AFAIK, you can't get there from here. By using the recorder you are
> only finding whatever it is that you put in the find box there is no
> way that I know of to use keystrokes to define area between the found
> text and the IP.
>

Actually you can do this. Pressing the F8 key or double-clicking the "EXT"
panel in the status bar puts you into Extend mode, where movements of the
cursor occur as if you were holding Shift down. If you then do a Find, all
the text between the original cursor position and the found text is
selected. Pressing ESC returns you to normal mode.

Recording a macro while doing this, you find that pressing F8 is equivalent
to this command

Selection.Extend

while pressing ESC is this command

Selection.EscapeKey

If you want to use this in association with a find, then you would need to
do the Find on the Selection object, not a Range.


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Greg
Thu Mar 30 05:16:41 CST 2006

Thanks Jonathan.

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Jonathan West wrote:
> "Greg" <gmaxey@mvps.org> wrote in message
> news:1143686510.630735.225870@v46g2000cwv.googlegroups.com...
>> Dick,
>>
>> AFAIK, you can't get there from here. By using the recorder you are
>> only finding whatever it is that you put in the find box there is no
>> way that I know of to use keystrokes to define area between the found
>> text and the IP.
>>
>
> Actually you can do this. Pressing the F8 key or double-clicking the
> "EXT" panel in the status bar puts you into Extend mode, where
> movements of the cursor occur as if you were holding Shift down. If
> you then do a Find, all the text between the original cursor position
> and the found text is selected. Pressing ESC returns you to normal
> mode.
> Recording a macro while doing this, you find that pressing F8 is
> equivalent to this command
>
> Selection.Extend
>
> while pressing ESC is this command
>
> Selection.EscapeKey
>
> If you want to use this in association with a find, then you would
> need to do the Find on the Selection object, not a Range.

Cleave
Thu Mar 30 08:47:01 CST 2006

Just what I was looking for! Thank you!

Dick

"Greg Maxey" wrote:

> Thanks Jonathan.
>
> --
> Greg Maxey/Word MVP
> See:
> http://gregmaxey.mvps.org/word_tips.htm
> For some helpful tips using Word.
>
>
> Jonathan West wrote:
> > "Greg" <gmaxey@mvps.org> wrote in message
> > news:1143686510.630735.225870@v46g2000cwv.googlegroups.com...
> >> Dick,
> >>
> >> AFAIK, you can't get there from here. By using the recorder you are
> >> only finding whatever it is that you put in the find box there is no
> >> way that I know of to use keystrokes to define area between the found
> >> text and the IP.
> >>
> >
> > Actually you can do this. Pressing the F8 key or double-clicking the
> > "EXT" panel in the status bar puts you into Extend mode, where
> > movements of the cursor occur as if you were holding Shift down. If
> > you then do a Find, all the text between the original cursor position
> > and the found text is selected. Pressing ESC returns you to normal
> > mode.
> > Recording a macro while doing this, you find that pressing F8 is
> > equivalent to this command
> >
> > Selection.Extend
> >
> > while pressing ESC is this command
> >
> > Selection.EscapeKey
> >
> > If you want to use this in association with a find, then you would
> > need to do the Find on the Selection object, not a Range.
>
>
>