У цій статті ми хотіли б продемонструвати вам 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
Оскільки в сучасній роботі нам доводиться постійно мати справу з цифровими пристроями, ми також стикаємося з ризиком втрати важливої інформації. Щоб запобігти цьому, відмінне рішення - резервне копіювання. Однак резервне копіювання вимагає повсякденної наполегливості. З часом ваша постанова зробити резервну копію файлів може відійти на задній план повсякденного життя. І ніщо не є срібною кулею, навіть резервні копії. Тому вам знадобиться a пошкоджений інструмент відновлення документів Word.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений інструмент ремонту XLSX - та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com