I denne artikkelen vil vi gjerne demonstrere deg med 4 raske og enkle måter å konvertere mellom horisontale og vertikale tekster i Word-dokumentet ditt.
Nå og da vil vi sannsynligvis ordne tekster horisontalt eller vertikalt i dokumentet vårt. Da er det sjansene for å konvertere en horisontal tekst til en vertikal. Det ville være tidkrevende og tålmodighetskrevende å skrive inn all informasjonen på nytt.
Derfor ønsker vi å tilby deg 4 måter å endre en horisontal tekst til en vertikal og omvendt, for eksempel nedenfor:
Tilfelle 1: Konverter vertikale tekster til horisontale tekster
For det første er det 2 metoder for å skifte mellom vertikale og horisontale tekster.
Metode 1: Bruk "Erstatt"-funksjonen
- Først av alt, velg målteksten.
- Klikk deretter på "Hjem"-fanen.
- Gå deretter til "Redigering"-gruppen og klikk på "Erstatt" -alternativet. Eller du kan trykke "Ctrl + H" for å åpne "Finn og erstatt"-dialogboksen.

- Plasser nå markøren ved "Finn hva"-tekstboksen, skriv inn "^p".
- Og i tekstboksen "Erstatt med" skriver du inn et mellomrom.
- Klikk deretter på "Erstatt alle".
- Det skal dukke opp en dialogboks, bare klikk på "Ja".
Metode 2: Kjør en makro
- Klikk først på "Utvikler"-fanen.
- Klikk deretter "Visual Basic" for å utløse VBA-editoren. Den alternative måten er å trykke "Alt+ F11".
- Klikk deretter på "Normal" prosjekt.
- Og klikk "Sett inn".
- Velg "Modul" for å opprette en ny modul i det vanlige prosjektet.
- Dobbeltklikk deretter på modulen for å åpne redigeringsområdet.
- Lim inn følgende koder der:
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
- Til slutt klikker du på "Kjør".
Tilfelle 2: Konverter horisontale tekster til vertikale tekster
Metode 1: Gå med "Erstatt"-funksjonen igjen
- Til å begynne med, gjenta de tre første trinnene i metode 1 i tilfelle 1.
- Men denne gangen, i "Finn og erstatt"-dialogboksen, skriv inn et mellomrom i "Finn hva"-tekstboksen og "^p" i "Erstatt med"-boksen.
- Klikk deretter på "Erstatt alle".
Metode 2: Kjør en makro
- Følg på samme måte de første 6 trinnene i metode 2 i tilfelle 1.
- Og denne gangen limer du inn kodene nedenfor i stedet:
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
- Husk å klikke "Kjør".
Hent din Lost File
Ettersom vi må forholde oss til digitale enheter hele tiden i dagens arbeid, står vi også overfor risikoen for å miste kritisk informasjon. For å forhindre det er det en flott løsning å ta sikkerhetskopier. Sikkerhetskopiering krever imidlertid en utholdenhet fra dag til dag. Etter hvert som tiden går, kan beslutningen din om å sikkerhetskopiere filer forsvinne inn i bakgrunnen av hverdagen. Og ingenting er en sølvkule, selv sikkerhetskopier. Derfor trenger du en gjenopprettingsverktøy for ødelagte Word-dokumenter.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert skadet xlsx reparasjonsverktøy og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med






