Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Text = "[!^13^11]@^0151[!^13^11]@[^13^11]"
    With .Replacement
      .ClearFormatting
      .Text = "^&"
      .Font.Bold = True
    End With
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub