Highlight parent word

[norgro]

I am creating macros to assist with the teaching of Braille.

I need to create a macro to highlight all words in a document that contain the text "ever".

I thought ".parent" would refer to the word that contained the search text, but it did not seem to work.

Your help would be appreciated.

Norman


My code:
Sub FindEver()
Set oRng = ActiveDocument.Range
' Search document for specified text and highlight parent word.

Selection.HomeKey Unit:=wdStory


With oRng.Find
.Text = "ever"
.Wrap = wdFindStop 'stops at the end of the document
While .Execute
oRng.Characters.Parent.HighlightColorIndex = wdYellow
Wend
End With
End Sub

[macropod]

Hi norgro,

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

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.

[norgro]

Paul
Thank you for replying. I am not sure that I explained my problem very well.
Given text that has words containing "ever", for example: ever never clever beverage reverberate, I want to highlight every word in that text that contains "ever". So, for example, I want the whole word "never" to be highlighted, and every other whole word that contains "ever".
In creating the code, I assumed, for example, that "never" was the parent of "ever", but that apparently is not the case.

[macropod]

Hi norgro,

The mere fact that a string can be found in various words doesn't make one the parent of the other. For what you're after, try:

Sub Demo()
With ActiveDocument.Content
  With .Find
    .ClearFormatting
    .Text = Selection.Text
    With .Replacement
      .ClearFormatting
      .Text = ""
    End With
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  While .Find.Found = True
    .Expand wdWord
    If Right(.Text, 1) = " " Then
      .End = .End - 1
    End If
    .HighlightColorIndex = wdBrightGreen
    .Collapse wdCollapseEnd
    .Find.Execute
  Wend
End With
End Sub

[norgro]

Paul

Your suggestion worked brilliantly!!

My first attempt failed because of a typographical error on my part.

Thanks again

Norman