In this article, we would like to demonstrate you with 4 quick and easy ways to convert between horizontal and vertical texts in your Word document.
Now and then, we are likely to arrange texts in horizontal or vertical in our document. Then there are the chances to convert a horizontal text to a vertical one. It would be time-consuming and patience-killing to retype all the information again.
Therefore, we want to offer you 4 ways to change a horizontal text to a vertical one and vice versa, such as below:
Case 1: Convert Vertical Texts to Horizontal Texts
First of all, there are 2 methods to change between vertical and horizontal texts.
Method 1: Use “Replace” Feature
- First off, select the target text.
- Then click “Home” tab.
- Next go to “Editing” group and click “Replace” option. Or you can press “Ctrl+ H” to open the “Find and Replace” dialog box.
- Now place cursor at the “Find what” text box, enter “^p”.
- And in “Replace with” text box, type a space.
- Next just click “Replace All”.
- There shall be a dialog box popping up, just click “Yes”.
Method 2: Run a Macro
- Firstly, click “Developer” tab.
- Then click “Visual Basic” to trigger the VBA editor. The alternative way is to press “Alt+ F11”.
- Next click “Normal” project.
- And click “Insert”.
- Choose “Module” to create a new module in the normal project.
- Next double click on the module to open the editing space.
- Paste the following codes there:
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
- Lastly, click “Run”.
Case 2: Convert Horizontal Texts to Vertical Texts
Method 1: Go with “Replace” Feature again
- To start with, repeat the first 3 steps in method 1 of case1.
- However this time, in the “Find and Replace” dialog box, enter a space in “Find what” text box and “^p” in “Replace with” box.
- Then click “Replace All”.
Method 2: Run a Macro
- Similarly, follow the first 6 steps in method 2 of case 1.
- And this time paste the bellowing codes instead:
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
- Remember to click “Run”.
Retrieve Your Lost File
As we have to deal with digital devices all the time in nowadays work, we also face the risk of losing critical information. To prevent it, taking backups is a great solution. However, backing up requires a day-to-day persistence. As time goes by, your resolution to make backup of files can fade into the background of everyday life. And nothing is a silver bullet, even backups. Therefore, you will need a corrupted Word document recovery tool.
Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including damaged xlsx repair tool and pdf repair software products. For more information visit www.datanumen.com