User1836's questions

Tenho texto em um documento do Word que contém parênteses. Gostaria de formatar uma palavra entre parênteses.

Texto de exemplo:

A presença de um buraco negro pode ser inferida através da sua interação com outra matéria e com radiação eletromagnética, como a luz visível. Qualquer matéria (que caia sobre um buraco negro pode) formar um disco de acreção externo aquecido por fricção, formando quasares, alguns dos objetos mais brilhantes do universo.

Texto formatado:

A presença de um buraco negro pode ser inferida através da sua interação com outra matéria e com radiação eletromagnética, como a luz visível. Qualquer matéria (que caia sobre um buraco negro pode) formar um disco de acreção externo aquecido por fricção, formando quasares, alguns dos objetos mais brilhantes do universo.

No texto formatado, a palavra 'preto' aparece em negrito e itálico se aparecer entre parênteses.

Encontrei uma maneira de identificar todas as palavras entre parênteses. Como aplico a formatação?

Sub Macro1()
    With ActiveDocument.Range.Find
        .Text = "(\(*\))"
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub