4 szybkie sposoby konwersji tekstów poziomych na pionowe i odwrotnie w programie Word

W tym artykule chcielibyśmy zademonstrować 4 szybkie i łatwe sposoby konwersji między tekstami poziomymi i pionowymi w dokumencie programu Word.

Od czasu do czasu prawdopodobnie ułożymy teksty w naszym dokumencie poziomo lub pionowo. Wtedy są szanse na konwersję tekstu poziomego na pionowy. Ponowne wpisywanie wszystkich informacji byłoby czasochłonne i wyczerpujące cierpliwość.

Dlatego chcemy Ci zaproponować 4 sposoby zamiany tekstu poziomego na pionowy i odwrotnie, takie jak poniżej:

Przypadek 1: Konwertuj teksty pionowe na teksty poziome

Przede wszystkim istnieją 2 metody przełączania między tekstami pionowymi i poziomymi.

Metoda 1: Użyj funkcji „Zastąp”

1. Najpierw wybierz tekst docelowy.
2. Następnie kliknij kartę „Strona główna”.
3. Następnie przejdź do grupy „Edycja” i kliknij opcję „Zastąp”. Lub możesz nacisnąć "Ctrl + H", aby otworzyć okno dialogowe "Znajdź i zamień".
4. Teraz umieść kursor w polu tekstowym „Znajdź co”, wpisz „^p”.
5. W polu tekstowym „Zamień na” wpisz spację.
6. Następnie kliknij „Zamień wszystko”.
7. Pojawi się okno dialogowe, po prostu kliknij „Tak”.

Metoda 2: Uruchom makro

1. Najpierw kliknij kartę „Programista”.
2. Następnie kliknij „Visual Basic”, aby uruchomić edytor VBA. Alternatywnym sposobem jest naciśnięcie „Alt + F11”.
3. Następnie kliknij „Normalny” projekt.
4. I kliknij „Wstaw”.
5. Wybierz „Moduł”, aby utworzyć nowy moduł w normalnym projekcie.
6. Następnie kliknij dwukrotnie moduł, aby otworzyć przestrzeń edycyjną.
7. Wklej tam następujące kody:

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. Na koniec kliknij „Uruchom”.

Przypadek 2: Konwersja tekstów poziomych na teksty pionowe

Metoda 1: Ponownie skorzystaj z funkcji „Zastąp”.

1. Na początek powtórz pierwsze 3 kroki metody 1 z przypadku 1.
2. Jednak tym razem w oknie dialogowym „Znajdź i zamień” wpisz spację w polu tekstowym „Znajdź co” i „^p” w polu „Zamień na”.
3. Następnie kliknij „Zamień wszystko”.

Metoda 2: Uruchom makro

1. Podobnie wykonaj pierwsze 6 kroków w metodzie 2 przypadku 1.
2. I tym razem zamiast tego wklej poniższe kody:

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. Pamiętaj, aby kliknąć „Uruchom”.

Odzyskaj swój Lost File

Ponieważ w dzisiejszej pracy cały czas mamy do czynienia z urządzeniami cyfrowymi, narażamy się również na ryzyko utraty krytycznych informacji. Aby temu zapobiec, tworzenie kopii zapasowych jest doskonałym rozwiązaniem. Tworzenie kopii zapasowych wymaga jednak codziennej wytrwałości. Z biegiem czasu twoje postanowienie o zrobieniu kopii zapasowej plików może zniknąć z tła codziennego życia. I nic nie jest złotym środkiem, nawet kopie zapasowe. Dlatego będziesz potrzebować ok uszkodzone narzędzie do odzyskiwania dokumentów programu Word.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzone narzędzie do naprawy xlsx i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com