V tomto článku by sme vám chceli predstaviť 4 rýchle a ľahké spôsoby prevodu medzi vodorovným a zvislým textom v dokumente Word.
Občas je pravdepodobné, že v našom dokumente usporiadame texty horizontálne alebo vertikálne. Potom existuje šanca previesť vodorovný text na zvislý. Opätovné napísanie všetkých informácií by bolo časovo náročné a trpezlivé.
Preto vám chceme ponúknuť 4 spôsoby, ako zmeniť vodorovný text na zvislý a naopak, napríklad nižšie:
Prípad 1: Prevod zvislých textov na vodorovné
V prvom rade existujú 2 spôsoby zmeny medzi vertikálnym a horizontálnym textom.
Metóda 1: Použite funkciu „Nahradiť“
- Najprv si vyberte cieľový text.
- Potom kliknite na kartu Domov.
- Ďalej choďte do skupiny „Úpravy“ a kliknite na možnosť „Nahradiť“. Alebo môžete stlačiť klávesy „Ctrl + H“ a otvoriť dialógové okno „Nájsť a nahradiť“.

- Teraz umiestnite kurzor do textového poľa „Nájsť čo“ a zadajte „^ p“.
- A do textového poľa „Nahradiť za“ zadajte medzeru.
- Ďalej stačí kliknúť na „Nahradiť všetko“.
- Zobrazí sa dialógové okno, stačí kliknúť na „Áno“.
Metóda 2: Spustenie makra
- Najskôr kliknite na kartu Vývojár.
- Potom kliknite na „Visual Basic“, čím spustíte editor VBA. Alternatívnym spôsobom je stlačiť klávesovú skratku „Alt + F11“.
- Ďalej kliknite na „Normálny“ projekt.
- A kliknite na „Vložiť“.
- Vyberte „Modul“ a vytvorte nový modul v normálnom projekte.
- Ďalej dvojitým kliknutím na modul otvorte priestor na úpravy.
- Vložte tam nasledujúce kódy:
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
- Nakoniec kliknite na tlačidlo „Spustiť“.
Prípad 2: Preveďte vodorovné texty na zvislé
Metóda 1: Znova použite funkciu „Nahradiť“
- Na začiatok zopakujte prvé 3 kroky v metóde 1 z prípadu 1.
- Tentokrát však v dialógovom okne „Nájsť a nahradiť“ zadajte medzeru do textového poľa „Nájsť čo“ a „^ p“ do poľa „Nahradiť“.
- Potom kliknite na „Nahradiť všetko“.
Metóda 2: Spustenie makra
- Podobne postupujte podľa prvých 6 krokov v metóde 2 v prípade 1.
- A tentoraz namiesto toho prilepte nasledujúce kódy:
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
- Nezabudnite kliknúť na tlačidlo „Spustiť“.
Vyzdvihnite svoj Lost File
Pretože v dnešnej dobe musíme neustále pracovať s digitálnymi zariadeniami, čelíme tiež riziku straty dôležitých informácií. Ak tomu chcete zabrániť, vytváranie záloh je skvelým riešením. Zálohovanie si však vyžaduje každodenné vytrvalosť. Postupom času sa vaše rozlíšenie zálohovania súborov môže stratiť na pozadí každodenného života. A nič nie je strieborná guľka, ani zálohy. Preto budete potrebovať a poškodený nástroj na obnovu dokumentov Word.
Úvod autora:
Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený nástroj na opravu xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S






