Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Negrito word

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
HUGO SOUZA
Colaborador
Colaborador
Mensagens: 59
Registrado em: Sáb Mar 15, 2014 5:48 pm

Negrito word

Mensagem por HUGO SOUZA »

Olá!
Tenho um documento do word com várias descrições. Preciso encontrar todos os textos que satisfazem "Lote ***- " e formata-los em negrito.

Alguém pode ajudar?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


JValq
Manda bem
Manda bem
Mensagens: 101
Registrado em: Qua Abr 27, 2011 7:34 pm
Localização: São Paulo/SP

Re: Negrito word

Mensagem por JValq »

Bom dia,

Veja se o código abaixo te ajuda:

Código: Selecionar todos

Sub Localizar()
    Dim Intervalo As Range
    
    Set Intervalo = ActiveDocument.Content
    
    Do
        Intervalo.Find.Execute findText:="Lote ??? -", MatchWholeWord:=False, MatchWildcards:=True
        If Intervalo.Find.Found = True Then
            Intervalo.Bold = True
        End If
    Loop While Intervalo.Find.Found = True
End Sub
Abraço


Responder