Microsoft Office Forums - View Single Post - How to search for 2 words at the same time

macropod · 06-08-2014, 03:08 AM

Perhaps something based on:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
  .ClearFormatting
  .Text = "STOP:[!^13]@NEXT:"
  With .Replacement
    .ClearFormatting
    .Text = "^&"
    .Font.ColorIndex = wdRed
  End With
  .Forward = True
  .Wrap = wdFindStop
  .Format = True
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub