dennislima777

Pessoal, primeiramente obrigado pela atenção. Eu uso um estilo que criei e ele é formatado em título pra poder encontrar mais facilmente. Nesse estilo é como se fosse um quadro resumo que fica: Mas se eu não tirar os parágrafos, cada linha fica um título no texto. Como se vê na barra de títulos a seguir: Eu tenho a seguinte macro que é pra tirar os parágrafos e substituir por quebra de linha. Sub paragrafoLINHA() ' ' paragrafoLINHA Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "^l" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With End Sub Eu queria saber como faço para que essa macro se repita até achar na próxima linha um texto sem o estilo que apliquei assim parando e tornando um bloco de vários parágrafos com a formatação num só dividido por quebra de linhas. Preciso muito de alguma luz pra esse problema, pois trabalho com textos com mais de 1000 páginas e isso facilitaria demais o meu serviço.