No comando Substituir, corresponde apenas a (s) primeira (s) palavra (s) do documento

Question

Estou usando o Replace para colocar em itálico a primeira palavra (s) de cada parágrafo seguido por uma guia usando essa expressão curinga:

^13*^t

O ^13 encontra o início de um novo parágrafo. Eu só quero substituir as primeiras palavras de um parágrafo, se forem seguidas por uma guia, daí o ^t .

Estou substituindo por ^& e a formatação em itálico é aplicada.

Isso funciona para tudo, exceto o primeiro parágrafo do documento, já que ele não inicia com ^13 , aparentemente. Existe uma maneira de combinar apenas a primeira palavra (s) seguida por uma aba?

Estou colocando isso em uma macro, por isso estou aberto a usar recursos que só estão disponíveis em uma macro, se necessário.

    

Answer 1

Você poderia conseguir isso com uma macro VBA (que você pode atribuir a uma tecla de atalho), sem usar localizar e substituir.

NB: Esse código também pressupõe que você use o método descrito anteriormente poste re SHIFT e ENTER para iniciar um novo parágrafo para o mesmo orador.

O código a seguir faz um loop em cada parágrafo e verifica cada palavra - ele irá colocar em itálico cada palavra até encontrar um caractere de tabulação, no ponto em que passa para o próximo parágrafo e repete o processo.

Sub italiciseBeforeTab()

    Dim para As Paragraph

    For Each para In ActiveDocument.Paragraphs

        Dim wd As Range

        For Each wd In para.Range.Words

            wd.Font.Italic = True
            If wd = vbTab Then Exit For

        Next wd

    Next para

End Sub