Henrique Sanches

Preciso selecionar e colocar 1 intervalo com vários parágrafos e colocar todos no mesmo parágrafo sem alterar o restante do documento. Estou tentando fazer esta alteração com o código abaixo, porém sem sucesso. Alguém pode me ajudar? Sub 4() Dim startText As String Dim endText As String Dim startPos As Long Dim endPos As Long Dim doc As Document Dim rng As Range Dim searchPos As Long startText = "End.: " endText = "Bairro: " Set doc = ActiveDocument searchPos = 1 Do startPos = InStr(searchPos, doc.Content.Text, startText) If startPos = 0 Then Exit Do endPos = InStr(startPos + Len(startText), doc.Content.Text, endText) If endPos = 0 Then Exit Do Set rng = doc.Range(startPos - 1, endPos - 1) 'rng.Font.Color = wdColorRed rng.Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = " " .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.MoveDown Unit:=wdLine, Count:=1 searchPos = endPos + Len(endText) Loop End Sub

Olá. Estou com uma dificuldade para automatizar a formatação de um documento. Preciso localizar e selecionar um intervalo entre dois textos, se possível com vba. Exemplo. Preciso localizar o texto, "aluno 1" e "aluno 2" e tudo o que estiver no intervalo entre as duas palavras deverá ser selecionado e formatado com a cor vermelha. Desde já agradeço pela ajuda.