Ebben a cikkben 2 egyszerű módszert szeretnénk megosztani a tartalom módosítására, hogy illeszkedjenek a Word-táblázat celláiba.
Amikor egy táblázattal foglalkozik a Word dokumentumban, nehéz biztosítani, hogy az összes táblázatcella rögzített méretű maradjon. Általában több szó beírása esetén automatikusan tördeli a szöveget. Alább egy példa:
Ez biztosan nem figyelemfelkeltő. Mit szólnál, ha megtalálnád a módját, hogyan javítsd ki a táblázat méretét, de a tartalom illeszkedjen hozzá?
A következő 2 mód áll rendelkezésre:
1. módszer: Állítson be egyszer egy asztalt
- Először kattintson a táblázat bal felső sarkában található plusz jelre a kijelöléséhez.
- Ezután kattintson a jobb gombbal a kiválasztott táblázatra.
- Ezután válassza a „Táblázat tulajdonságai” lehetőséget.
- Most a „Táblázat tulajdonságai” párbeszédpanelen először kattintson a „Cella” fülre.
- Ezután kattintson az „Opciók” gombra a doboz jobb alsó sarkában.
- Most megnyílik a „Cellabeállítások” párbeszédpanel. Lépjen az „Opciók” részre, és törölje a „Szöveg tördelése” mezőt.
- Ehelyett jelölje be a „Szöveg illeszkedése” négyzetet.
- Ezután kattintson az „OK” gombra.
- És ne felejtse el kattintani az „OK” gombra a „Táblázat tulajdonságai” párbeszédpanelen is.
Most a tartalom elrendezése ennek megfelelően módosul. Íme, amit kapsz:
2. módszer: VBA kódok használata
A Word VBA-szerkesztője lehetővé teszi, hogy kódokat írjon be saját Word-funkcióinak testreszabásához, hogy a feladatokat gyorsan és ügyesen végezze el. Így kényelmesen használhatja a kódokat, hogy megtörténjen a csoda.
- Először is, kattints a „Fejlesztő” fülre. Ha még nem tetted meg, akkor ezt a cikket olvashatod el: Hogyan illesszen be háttérzenét a Word-dokumentumába
- Ezután kattintson a „Visual Basic” elemre a VBA-szerkesztő megnyitásához.
- A VBA szerkesztőben keresse meg a projektet a dokumentum nevével, és kattintson a „ThisDocument” gombra.
- Ezután kattintson a „Beszúrás” gombra az eszköztáron.
- És válassza a „Modul” lehetőséget a menüben.
- Most megnyílik a szerkesztési terület, csak illessze be a kódokat:
Sub AutoFitTextForAllTableCells()
' Check if there are any tables in the document
If ActiveDocument.Tables.Count > 0 Then
Dim objTable As Table
Dim objCell As Cell
' Process each cell in each table and set the options accordingly
For Each objTable In ActiveDocument.Tables
For Each objCell In objTable.Range.Cells
objCell.WordWrap = False
objCell.FitText = True
Next
Next
Else
MsgBox("There is no table in this document!")
End If
End Sub
Készüljön fel a közelgő kudarcra
Az incidensek mindig váratlanul érnek. Tehát a legjobb módszer, ha időt szánsz és felkészülsz. Az elővigyázatossági intézkedések közé tartozhat a fájlok biztonsági mentése és némi pénz kiváltása, hogy a sérült Word doc helyreállítási eszköz. Mivel adatvesztés bárkivel, bárhol előfordulhat, ideje tenni valamit.
Szerző Bevezetés:
Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve Excel adathibajavító eszköz és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com