Início / coding / Perguntas / 77296446
Accepted
User1836
Asked: 2023-10-15 19:32:58 +0800 CST

Pesquise e formate texto entre parênteses

  • 772

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
vba

2 respostas

  1. Best Answer

    Eu colocaria o VBA no Word e modificaria o código da seguinte forma:

    Sub ReplacInParentheses (beforeWord as string, afterWord as string)
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = "\(([^)]*)\)"
    
    Dim doc As Document
    Set doc = ActiveDocument
    
    For Each match In regex.Execute(doc.Range.Text)
        Dim newText As String
        newText = Replace(match.SubMatches(0), beforeWord, afterWord)
        doc.Range.Text = Replace(doc.Range.Text, match.Value, "(" & newText & ")")
    Next match
End Sub

Sub test()
 ReplacInParentheses "black", "white"
End Sub
    • 1

  2. A pesquisa e substituição de palavras é poderosa o suficiente para ser realizada sem RegExp.

    Sub BlackInParentheses()
    Dim rng As Range, new_rng As Range
    Dim text As String
    Const KEYWORD = "black" ' Modify as needed
    Set rng = ActiveDocument.Content
    ' search KEYWORD
    With rng.Find
        .ClearFormatting
        .text = "\(* " & KEYWORD & " *\)"
        .MatchWildcards = True
        .Wrap = wdFindStop
        .Forward = True
    End With
    Do While rng.Find.Execute
        Set new_rng = rng.Duplicate
        With new_rng.Find
            .ClearFormatting
            ' Extra space is a word boundary, otherwise `blackboard` will be replaced
            .text = "( " & KEYWORD & " )"
            .MatchWildcards = True
            .Wrap = wdFindStop
            .Forward = True
            ' Change font
            With .Replacement
                .ClearFormatting
                .text = "\1"
                .Font.Bold = True
                .Font.Italic = True
            End With
            ' replace w/ format
            .Execute Replace:=wdReplaceAll
        End With
        rng.Collapse wdCollapseEnd
    Loop
End Sub
    • 1

relate perguntas