4 бързи начина за конвертиране на хоризонтални текстове във вертикални и обратни версии в Word

В тази статия бихме искали да ви демонстрираме с 4 бързи и лесни начина за конвертиране между хоризонтални и вертикални текстове във вашия документ на Word.

От време на време е вероятно да подредим текстове в хоризонтален или вертикален вариант в нашия документ. Тогава има шанс да конвертирате хоризонтален текст във вертикален. Ще отнеме много време и ще убие търпението да се въведе отново цялата информация отново.

Затова искаме да ви предложим 4 начина за промяна на хоризонтален текст на вертикален и обратно, като например по-долу:

Случай 1: Преобразуване на вертикални текстове в хоризонтални текстове

На първо място, има 2 метода за превключване между вертикални и хоризонтални текстове.

Метод 1: Използвайте функцията „Замяна“

1. Първо, изберете целевия текст.
2. След това щракнете върху раздела „Начало“.
3. След това отидете на групата „Редактиране“ и щракнете върху опцията „Замяна“. Или можете да натиснете „Ctrl + H“, за да отворите диалоговия прозорец „Намиране и замяна“.
4. Сега поставете курсора в текстовото поле „Намери какво“, въведете „^ p“.
5. И в текстовото поле „Замени с“ въведете интервал.
6. След това просто кликнете върху „Замяна на всички“.
7. Ще се появи диалогов прозорец, просто щракнете върху „Да“.

Метод 2: Стартирайте макрос

1. Първо кликнете върху раздела „Програмист“.
2. След това щракнете върху „Visual Basic“, за да задействате редактора на VBA. Алтернативният начин е да натиснете „Alt + F11“.
3. След това щракнете върху „Нормален“ проект.
4. И щракнете върху „Вмъкване“.
5. Изберете „Модул“, за да създадете нов модул в нормалния проект.
6. След това щракнете двукратно върху модула, за да отворите пространството за редактиране.
7. Поставете следните кодове там:

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

8. Накрая щракнете върху „Изпълни“.

Случай 2: Преобразуване на хоризонтални текстове във вертикални текстове

Метод 1: Отидете отново с функцията „Замяна“

1. За начало повторете първите 3 стъпки от метод 1 на случай1.
2. Този път обаче в диалоговия прозорец „Намери и замени“ въведете интервал в текстовото поле „Намери какво“ и „^ p“ в полето „Замени с“.
3. След това щракнете върху „Замяна на всички“.

Метод 2: Стартирайте макрос

1. По същия начин следвайте първите 6 стъпки от метод 2 от случай 1.
2. И този път вместо това поставете долните кодове:

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

3. Не забравяйте да щракнете върху „Изпълни“.

Изтеглете вашия Lost File

Тъй като в днешно време трябва да се занимаваме с цифрови устройства през цялото време, ние също се сблъскваме с риска от загуба на критична информация. За да го предотвратите, архивирането е чудесно решение. Архивирането обаче изисква ежедневна упоритост. С течение на времето вашата резолюция за архивиране на файлове може да изчезне на фона на ежедневието. И нищо не е сребърен куршум, дори резервни копия. Следователно ще ви трябва a повреден инструмент за възстановяване на документи на Word.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повреден инструмент за ремонт на xlsx и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com