Selles artiklis soovime teile näidata 4 kiiret ja lihtsat viisi, kuidas Wordi dokumendis horisontaalseid ja vertikaalseid tekste teisendada.
Aeg-ajalt korraldame tõenäoliselt oma dokumendis tekste horisontaalselt või vertikaalselt. Seejärel on võimalus horisontaalne tekst vertikaalseks teisendada. Kogu teabe uuesti sisestamine oleks aeganõudev ja kannatlikkus.
Seetõttu tahame teile pakkuda 4 võimalust horisontaalse teksti muutmiseks vertikaalseks ja vastupidi, näiteks allpool:
1. juhtum: teisendage vertikaalsed tekstid horisontaaltekstideks
Esiteks on vertikaalsete ja horisontaalsete tekstide vahetamiseks kaks meetodit.
1. meetod: kasutage funktsiooni „Asenda”.
- Kõigepealt vali sihttekst.
- Seejärel klõpsake vahekaarti "Kodu".
- Järgmisena minge gruppi "Redigeerimine" ja klõpsake valikut "Asenda". Või võite dialoogiboksi "Otsi ja asenda" avamiseks vajutada "Ctrl + H".

- Nüüd asetage kursor tekstiväljale "Leia mida" ja sisestage "^p".
- Ja tekstiväljale "Asenda" sisestage tühik.
- Järgmisena klõpsake lihtsalt nuppu "Asenda kõik".
- Ilmub dialoogiboks, klõpsake lihtsalt "Jah".
2. meetod: käivitage makro
- Esiteks klõpsake vahekaarti "Arendaja".
- Seejärel klõpsake VBA redaktori käivitamiseks "Visual Basic". Teine võimalus on vajutada "Alt + F11".
- Järgmisena klõpsake nuppu "Tavaline" projekt.
- Ja klõpsake nuppu "Sisesta".
- Tavaprojektis uue mooduli loomiseks valige "Moodul".
- Järgmisena topeltklõpsake redigeerimisruumi avamiseks moodulil.
- Kleepige sinna järgmised koodid:
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
- Lõpuks klõpsake nuppu "Käivita".
2. juhtum: teisendage horisontaalsed tekstid vertikaaltekstideks
1. meetod: kasutage uuesti funktsiooni „Asenda”.
- Alustuseks korrake 1. juhtumi 1. meetodi esimesi 3 sammu.
- Kuid seekord sisestage dialoogiboksis „Otsi ja asenda” tühik tekstikasti „Leia mis” ja „^p” väljale „Asenda”.
- Seejärel klõpsake "Asenda kõik".
2. meetod: käivitage makro
- Samamoodi järgige 6. juhtumi 2. meetodi 1 esimest sammu.
- Ja seekord kleepige selle asemel järgmised koodid:
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
- Ärge unustage klõpsata "Käivita".
Hankige oma Lost File
Kuna tänapäeva töös peame pidevalt tegelema digiseadmetega, seisame silmitsi ka kriitilise teabe kaotamise ohuga. Selle vältimiseks on varukoopiate tegemine suurepärane lahendus. Varundamine nõuab aga igapäevast järjekindlust. Aja möödudes võib teie otsus failidest varundada igapäevaelu tagaplaanile. Ja miski pole hõbekuul, isegi varukoopiad. Seetõttu vajate a rikutud Wordi dokumendi taastamise tööriist.
Autori sissejuhatus:
Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas kahjustatud xlsx remonditööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom






