Highlight parent word

macropod · #2 03-09-2013, 12:18 AM

Hi norgro,

You can't select discontiguous ranges with a macro, so your Find/Replace would have to use something like:

Code:

Sub Demo()
With ActiveDocument.Content.Find
  .ClearFormatting
  .Text = Selection.Text
  With .Replacement
    .ClearFormatting
    .Text = "^&"
    .Highlight = True
  End With
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  .Execute Replace:=wdReplaceAll
End With
End Sub

The problem with any Find/Replace approach is that it changes your document's content. However, if you select the input expression, press Ctrl-F, right-arrow, Word will temporarily highlight all occurences of the term.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and highlight multiple words in MS Word document	AtaLoss	Word VBA	37	09-22-2021 12:04 PM
how to selectively highlight text in word	cnyoon2	Word	1	08-04-2015 08:16 AM
Want "cloud" shape in Word, to highlight changes	Arbie	Word	1	03-31-2012 05:22 AM
Highlight un-identifiable	wolfer	Word VBA	0	08-24-2011 06:37 AM
find - reading highlight - highlight all / highlight doesn't stick when saved	bobk544	Word	3	04-15-2009 03:31 PM