Šiame straipsnyje norėtume pasidalinti 2 paprastais būdais, kaip koreguoti turinį, kad jis tilptų į jūsų Word lentelės langelius.
Kai dirbate su lentele Word dokumente, sunku užtikrinti, kad visi lentelės langeliai išliktų fiksuoto dydžio. Paprastai, kai langelyje įvedama daugiau žodžių, tekstas bus automatiškai apvyniotas. Žemiau pateikiamas pavyzdys:
Tai tikrai netraukia akį. Kaip rasti būdų, kaip pakoreguoti lentelės dydį, o turinį pritaikyti jam?
Galimi 2 būdai:
1 būdas: vieną kartą nustatykite lentelę
- Pirmiausia spustelėkite pliuso ženklą viršutiniame kairiajame lentelės kampe, kad jį pasirinktumėte.
- Tada dešiniuoju pelės mygtuku spustelėkite pasirinktą lentelę.
- Tada pasirinkite „Lentelės ypatybės“.
- Dabar dialogo lange "Lentelės ypatybės" pirmiausia spustelėkite skirtuką "Ląstelė".
- Tada dešiniajame apatiniame langelio kampe spustelėkite „Parinktys“.
- Dabar atidarysite dialogo langą „Ląstelių parinktys“. Eikite į dalį „Parinktys“ ir išvalykite laukelį „Apvynioti tekstą“.
- Vietoj to pažymėkite laukelį „Fit text“.
- Tada spustelėkite „Gerai“.
- Taip pat nepamirškite paspausti „Gerai“ dialogo lange „Lentelės ypatybės“.
Dabar atitinkamai pasikeis turinio išdėstymas. Štai ką gausite:
2 būdas: naudokite VBA kodus
„Word“ VBA redaktorius leidžia įvesti kodus, kad pritaikytumėte savo „Word“ funkcijas, kad darbai būtų atlikti greitai ir tvarkingai. Taigi galite patogiai naudoti kodus, kad stebuklas įvyktų.
- Pirmiausia spustelėkite skirtuką „Kūrėjas“. Jei jo dar neturite, galite peržiūrėti šį straipsnį: Kaip įterpti foninę muziką į savo Word dokumentą
- Tada spustelėkite „Visual Basic“, kad atidarytumėte VBA redaktorių.
- VBA redaktoriuje raskite projektą su dokumento pavadinimu ir spustelėkite „ThisDocument“.
- Tada įrankių juostoje spustelėkite „Įterpti“.
- Ir meniu pasirinkite „Modulis“.
- Dabar atidarysite redagavimo sritį, tiesiog įklijuokite kodus:
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
Pasiruoškite artėjančiai nesėkmei
Įvykiai visada jus užklups netikėtai. Taigi geriausias būdas yra skirti laiko ir pasiruošti. Atsargumo priemonės gali apimti failų atsarginių kopijų kūrimą ir pinigų pavedimą, kad gautumėte a sugadintas Word doc atkūrimo įrankis. Kadangi duomenų praradimas gali nutikti bet kam ir bet kur, laikas ką nors padaryti.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant „Excel“ duomenų klaidų taisymo įrankis bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com