Paul,
Yes that makes sense. Thanks. I have a feeling that blah, blah may actually be lengthy text in some cases so I've plugged your expression into a macro for her:
Sub ScratchMacro() 'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 12/27/2017 Dim oRng As Word.Range Dim oRngDup As Word.Range Set oRng = ActiveDocument.Range With oRng.Find .Text = "^13([A-z.]@ [A-z]@>)[!^13]@^13\1" .MatchWildcards = True While .Execute Set oRngDup = oRng.Duplicate oRng.Select With oRngDup .Start = oRngDup.Paragraphs(3).Range.Start .Collapse wdCollapseStart .MoveEnd wdWord, 2 .HighlightColorIndex = wdRed End With oRng.Collapse wdCollapseEnd Wend End With lbl_Exit: Exit Sub End Sub




Reply With Quote