Neste artigo, gostaríamos de demonstrar 4 maneiras rápidas e fáceis de converter entre textos horizontais e verticais em seu documento do Word.
De vez em quando, é provável que organizemos textos na horizontal ou na vertical em nosso documento. Depois, há as chances de converter um texto horizontal em vertical. Seria demorado e acabaria com a paciência redigitar todas as informações novamente.
Portanto, queremos oferecer a você 4 maneiras de alterar um texto horizontal para vertical e vice-versa, como abaixo:
Caso 1: Converter Textos Verticais em Textos Horizontais
Em primeiro lugar, existem 2 métodos para alternar entre textos verticais e horizontais.
Método 1: Use o recurso "Substituir"
- Primeiramente, selecione o texto desejado.
- Em seguida, clique na guia "Página inicial".
- Em seguida, vá para o grupo "Editar" e clique na opção "Substituir". Ou você pode pressionar “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.

- Agora coloque o cursor na caixa de texto “Find what”, digite “^p”.
- E na caixa de texto “Substituir por”, digite um espaço.
- Em seguida, clique em “Substituir tudo”.
- Haverá uma caixa de diálogo aparecendo, basta clicar em "Sim".
Método 2: Executar uma Macro
- Em primeiro lugar, clique na guia "Desenvolvedor".
- Em seguida, clique em “Visual Basic” para acionar o editor VBA. A forma alternativa é pressionar “Alt+F11”.
- Em seguida, clique no projeto “Normal”.
- E clique em “Inserir”.
- Escolha “Módulo” para criar um novo módulo no projeto normal.
- Em seguida, clique duas vezes no módulo para abrir o espaço de edição.
- Cole os seguintes códigos lá:
Sub ConvertVerticalToHorizontalList()
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- Por fim, clique em “Executar”.
Caso 2: converter textos horizontais em textos verticais
Método 1: Vá com o recurso “Substituir” novamente
- Para começar, repita os 3 primeiros passos do método 1 do caso 1.
- No entanto, desta vez, na caixa de diálogo "Localizar e substituir", insira um espaço na caixa de texto "Localizar" e "^p" na caixa "Substituir por".
- Em seguida, clique em “Substituir tudo”.
Método 2: Executar uma Macro
- Da mesma forma, siga as primeiras 6 etapas no método 2 do caso 1.
- E desta vez cole os códigos abaixo:
Sub ConvertHorizontalToVerticalList()
With Selection.Find
.Text = " "
.Replacement.Text = "^p"
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- Lembre-se de clicar em “Executar”.
Recupere seu Lost File
Como temos que lidar com dispositivos digitais o tempo todo no trabalho atual, também corremos o risco de perder informações críticas. Para evitá-lo, fazer backups é uma ótima solução. No entanto, o backup requer uma persistência diária. Com o passar do tempo, sua resolução de fazer backup de arquivos pode desaparecer no dia a dia. E nada é uma bala de prata, nem mesmo backups. Portanto, você precisará de um ferramenta de recuperação de documento do Word corrompido.
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo ferramenta de reparo xlsx danificado e pdf reparar produtos de software. Para mais informações visite www.datanumen.com






