vba code to select all occurrences of some text

[robot]

Hello,

I am using Word XP, which allows users the option to "highlight all items
found" in the Find dialog box.

I record a macro for such an action, but the macro would only highlight the
first found item.

l look through the Help file, but could not find any properties/methods of
the Find object that would highlight all found items.

Suggestions are most welcome.

 

[Jonathan West]

Unfortunately, Microsoft never made this feature available to VBA.

--
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

 

[Jezebel]

The multiple selections are a function of the Selection object, not of the
Find object. Sadly, not available through VBA. See
http://support.microsoft.com/kb/q288424/

 

[Helmut Weber]

Hi Robot,

You may utilize highlightcolorindex,
which is a bit more complicated for a beginner,
but in the end, I think, you can use it like
a discontiguous selection.

Sub MyHighlight()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Text = "brown"
While .Execute
rDcm.HighlightColorIndex = wdYellow
Wend
End With
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

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

 

[Greg]

See:
http://gregmaxey.mvps.org/Find_it_tool_bar.htm

This is an Add-In I wrote about a year ago to do this very thing.

 

[Klaus Linke]

Hello,

I am using Word XP, which allows users the option to "highlight all items
found" in the Find dialog box.

I record a macro for such an action, but the macro would only highlight
the
first found item.

l look through the Help file, but could not find any properties/methods of
the Find object that would highlight all found items.

Suggestions are most welcome.

The only way to do it would be using SendKeys (which is pretty kludgy and
error-prone):

SendKeys "{TAB}+{TAB}{TAB}{TAB}{ENTER}"
With Dialogs(wdDialogEditFind)
.Find = "e"
.Display 1
End With

Klaus

 

[Klaus Linke]

SendKeys "{TAB}+{TAB}{TAB}{TAB}{ENTER}"

With Dialogs(wdDialogEditFind)
.Find = "e"
.Display 1
End With

The "+" should have been in braces {+}, but SendKeys still lives up to its
reputation and doesn't work.

SendKeys "%t{+}{TAB}{TAB}{TAB}{ENTER}"
should work (more or less reliably) in the English version.

Klaus