VBA macro para selecionar incisos de lei

[philzaum]

Galera, meu objetivo é colocar os símbolos romanos, incisos em negrito.

Art. 1º A República Federativa do Brasil, formada pela união indissolúvel dos Estados e Municípios e do Distrito Federal, constitui-se em Estado Democrático de Direito e tem como fundamentos:

I - a soberania;

II - a cidadania

III - a dignidade da pessoa humana;

IV - os valores sociais do trabalho e da livre iniciativa;            (Vide Lei nº 13.874, de 2019)

V - o pluralismo político.

 

Estou usando esse código, mas ele seleciona as letras dos romanos também para as palavras

Exemplo: Municípios fica Municípios /// Distrito Federal

 

Sub FindAndBoldRomanNumeral()

Dim RomanNumerals As String
RomanNumerals = "IVXLCDM "

Selection.HomeKey wdStory

Selection.Find.ClearFormatting
With Selection.Find
.Text = "[" & RomanNumerals & "]"
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute
While Selection.Find.Found
Selection.Font.Bold = True
Selection.Find.Execute
Wend

End Sub

[Basole]

Voce pode tentar ser mais especifico relacionando um a um os numeros romanos, mantendo espaços entre eles:

Exemplo de 1 a 20:

RomanNumerals = " I II III IV V VI VII VIII IX X XI XII XIII XIV XV XVI XVII XVIII XIX XX"

 

Mesmo assim o resultado não será tão eficiente, por exemplo neste trecho  (Vide Lei nº 13.874, de 2019) As letras "Vi" => " VI "  ficarão em negrito.

 

Editado Fevereiro 8, 2023 por Basole

[philzaum]

Boa tarde Basole,

Vou tentar isso! Obrigado pela resposta!