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?
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Negrito word
-
- Colaborador
- Mensagens: 59
- Registrado em: Sáb Mar 15, 2014 5:48 pm
Re: Negrito word
Bom dia,
Veja se o código abaixo te ajuda:
Abraço
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