Word Macro Which Makes Bold The Parts Fall Left Side Of The Either : Or )

[zanshin777]

Word Macro Which Makes Bold The Parts Fall Left Side Of The Either : Or )

I shared a document.

I want Sheet 1 will be like Sheet 2.

How can we write such macro?

[6StringJazzer]

Try this:

   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   Selection.Find.Replacement.Font.Bold = True
   
   With Selection.Find
      
      .Text = "^13([!^13]@:)"
      .Replacement.Text = "^p\1"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchWildcards = True
      .Execute Replace:=wdReplaceAll
   
      .Text = "^13([!^13]@\))"
      .Execute Replace:=wdReplaceAll
   
   End With

[zanshin777]

It perfectly works.

Thank you very much.

[6StringJazzer]

Glad to help!