In dit artikel willen we je 4 snelle en gemakkelijke manieren laten zien om te converteren tussen horizontale en verticale teksten in je Word-document.
Af en toe zullen we teksten in ons document waarschijnlijk horizontaal of verticaal rangschikken. Dan zijn er de kansen om een horizontale tekst om te zetten in een verticale tekst. Het zou tijdrovend en tijdrovend zijn om alle informatie opnieuw te typen.
Daarom willen we je 4 manieren aanbieden om een horizontale tekst te veranderen in een verticale tekst en vice versa, zoals hieronder:
Geval 1: Converteer verticale teksten naar horizontale teksten
Allereerst zijn er 2 methoden om te wisselen tussen verticale en horizontale teksten.
Methode 1: Gebruik de functie "Vervangen"
- Selecteer eerst de tekst die u wilt bewerken.
- Klik vervolgens op het tabblad "Home".
- Ga vervolgens naar de groep "Bewerken" en klik op de optie "Vervangen". Of u kunt op "Ctrl + H" drukken om het dialoogvenster "Zoeken en vervangen" te openen.
- Plaats nu de cursor in het tekstvak "Zoeken naar", voer "^p" in.
- En typ in het tekstvak "Vervangen door" een spatie.
- Klik vervolgens op "Alles vervangen".
- Er verschijnt een dialoogvenster, klik gewoon op "Ja".
Methode 2: voer een macro uit
- Klik eerst op het tabblad "Ontwikkelaar".
- Klik vervolgens op "Visual Basic" om de VBA-editor te activeren. De alternatieve manier is om op "Alt + F11" te drukken.
- Klik vervolgens op “Normaal” project.
- En klik op "Invoegen".
- Kies “Module” om een nieuwe module aan te maken in het normale project.
- Dubbelklik vervolgens op de module om de bewerkingsruimte te openen.
- Plak daar de volgende codes:
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
- Klik ten slotte op "Uitvoeren".
Geval 2: Converteer horizontale teksten naar verticale teksten
Methode 1: Ga opnieuw met de functie "Vervangen".
- Om te beginnen, herhaal de eerste 3 stappen in methode 1 van geval 1.
- Voer deze keer echter in het dialoogvenster "Zoeken en vervangen" een spatie in in het tekstvak "Zoeken naar" en "^p" in het vak "Vervangen door".
- Klik vervolgens op "Alles vervangen".
Methode 2: voer een macro uit
- Volg op dezelfde manier de eerste 6 stappen in methode 2 van geval 1.
- En plak deze keer in plaats daarvan de onderstaande codes:
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
- Vergeet niet op "Uitvoeren" te klikken.
Haal je L opost File
Omdat we in het huidige werk voortdurend met digitale apparaten te maken hebben, lopen we ook het risico kritieke informatie te verliezen. Om dit te voorkomen, is het maken van back-ups een geweldige oplossing. Het maken van een back-up vereist echter een dagelijkse volharding. Naarmate de tijd verstrijkt, kan uw voornemen om back-ups van bestanden te maken naar de achtergrond van het dagelijks leven verdwijnen. En niets is een wondermiddel, zelfs geen back-ups. Daarom heb je een corrupte tool voor het herstellen van Word-documenten.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde xlsx-reparatietool en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com