philzaum

Boa tarde Basole, Vou tentar isso! Obrigado pela resposta!

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