Sub Find_Highlight_Height()
    Application.ScreenUpdating = False
    Options.DefaultHighlightColorIndex = wdYellow
    'Options.DefaultHighlightColorIndex = wdRed
    With ActiveDocument.Content.Find
      .ClearFormatting
    '  .Text = "Height {1,}-[!0]{1,}*mm"
      .Text = "Height {1,}-[!0]*(mm)>"
      With .Replacement
        .Text = "^&"
        .ClearFormatting
        .Highlight = True
      End With
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchWildcards = True
      .Execute Replace:=wdReplaceAll
    End With
    Application.ScreenUpdating = True
End Sub