Word Font değiştirme

600 sayfalık bir word dosyasında sadece parantez içinde yazılan cümlelerin fontunu nasıl değiştirebilirim? Parantez içine yazılan metinlerin fontunu teker teker değiştirdiğim zaman uzun sürüyor.Toplu olarak değiştirmek istiyorum.

merhaba

aşağıdaki makro kodlarıyla işinizi görebilirsiniz.

Sub ParanteziciFontDegis()

'23/11/2022

'makcan@gmail.com

'https://akcansoft.blogspot.com

  Selection.HomeKey

  Do

    With Selection

      With .Find

        .Forward = True

        .Text = "\(*\)"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchAllWordForms = False

        .MatchSoundsLike = False

        .MatchWildcards = True

        .Execute

      End With

      p = .Start

      If sp > p Then Exit Do

      sp = p

      .Font.Name = "Times New Roman"

    End With

    DoEvents

  Loop

  Selection.MoveLeft

  MsgBox "İşlem Tamam!"

End Sub