В этой статье мы хотели бы продемонстрировать вам 4 быстрых и простых способа преобразования горизонтального и вертикального текста в документе Word.
Время от времени мы, вероятно, располагаем тексты в нашем документе горизонтально или вертикально. Тогда есть шансы преобразовать горизонтальный текст в вертикальный. Повторный ввод всей информации отнимет много времени и терпения.
Поэтому мы хотим предложить вам 4 способа изменить горизонтальный текст на вертикальный и наоборот, как показано ниже:
Случай 1: преобразование вертикальных текстов в горизонтальные тексты
Прежде всего, есть 2 способа переключения между вертикальным и горизонтальным текстом.
Способ 1: используйте функцию «Заменить»
- Для начала выделите целевой текст.
- Затем нажмите вкладку «Главная».
- Затем перейдите в группу «Редактирование» и нажмите «Заменить». Или вы можете нажать «Ctrl + H», чтобы открыть диалоговое окно «Найти и заменить».
- Теперь поместите курсор в текстовое поле «Найти что», введите «^p».
- И в текстовом поле «Заменить на» введите пробел.
- Далее просто нажмите «Заменить все».
- Появится диалоговое окно, просто нажмите «Да».
Способ 2: запустить макрос
- Сначала перейдите на вкладку «Разработчик».
- Затем нажмите «Visual Basic», чтобы вызвать редактор VBA. Альтернативный способ — нажать «Alt+F11».
- Затем нажмите «Обычный» проект.
- И нажмите «Вставить».
- Выберите «Модуль», чтобы создать новый модуль в обычном проекте.
- Затем дважды щелкните модуль, чтобы открыть пространство редактирования.
- Вставьте туда следующие коды:
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
- Наконец, нажмите «Выполнить».
Случай 2: преобразование горизонтальных текстов в вертикальные тексты
Способ 1: снова используйте функцию «Заменить»
- Для начала повторите первые 3 шага метода 1 из случая 1.
- Однако на этот раз в диалоговом окне «Найти и заменить» введите пробел в текстовом поле «Найти что» и «^ p» в поле «Заменить на».
- Затем нажмите «Заменить все».
Способ 2: запустить макрос
- Точно так же выполните первые 6 шагов в методе 2 случая 1.
- И на этот раз вставьте следующие коды:
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
- Не забудьте нажать «Выполнить».
Получить свой Lost File
Поскольку в современной работе нам постоянно приходится иметь дело с цифровыми устройствами, мы также сталкиваемся с риском потери важной информации. Чтобы предотвратить это, создание резервных копий — отличное решение. Однако резервное копирование требует каждодневной настойчивости. Со временем ваше решение сделать резервную копию файлов может отойти на второй план в повседневной жизни. И ничто не является серебряной пулей, даже резервные копии. Поэтому вам понадобится инструмент для восстановления поврежденных документов Word.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный инструмент восстановления xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com