Selles artiklis soovime jagada kahte lihtsat meetodit sisu kohandamiseks nii, et see sobiks teie Wordi tabeli lahtritesse.
Wordi dokumendis tabeliga tegelemisel on raske tagada, et kõik tabeli lahtrid jääksid fikseeritud suurusega. Tavaliselt murrab see teksti automaatselt, kui lahtrisse on sisestatud rohkem sõnu. Allpool on näide:
See ei ole kindlasti pilkupüüdev. Kuidas oleks, kui leiaks viise, kuidas tabeli suurust parandada, kuid sisu sellele sobivaks muuta?
Saadaval on 2 võimalust:
1. meetod: määrake laud üks kord
- Esmalt klõpsake selle valimiseks tabeli vasakus ülanurgas plussmärki.
- Seejärel paremklõpsake valitud tabelit.
- Järgmisena valige "Tabeli omadused".
- Nüüd klõpsake dialoogiboksis "Tabeli atribuudid" esmalt vahekaarti "Cell".
- Seejärel klõpsake kasti paremas allnurgas nuppu "Valikud".
- Nüüd avate dialoogiboksi "Cell Options". Minge jaotisse "Valikud" ja tühjendage ruut "Mähkida tekst".
- Ja märkige selle asemel ruut „Sobita tekst”.
- Seejärel klõpsake nuppu "OK".
- Ärge unustage klõpsata ka dialoogiboksis "Tabeli atribuudid" "OK".
Nüüd muutub sisu paigutus vastavalt. Siin on see, mida saate:
2. meetod: kasutage VBA koode
Wordi VBA-redaktor võimaldab teil sisestada koode, et kohandada oma Wordi funktsioone, et töö kiiresti ja kenasti ära teha. Nii saate mugavalt kasutada koode, et ime teoks teha.
- Kõigepealt klõpsake vahekaarti „Arendaja“. Kui teil seda veel pole, võite vaadata seda artiklit: Kuidas lisada Wordi dokumenti taustamuusikat
- Seejärel klõpsake VBA redaktori avamiseks "Visual Basic".
- VBA redaktoris leidke projekt, mille järel on dokumendi nimi, ja klõpsake nuppu "See dokument".
- Järgmisena klõpsake tööriistaribal nuppu "Lisa".
- Ja valige menüüst "Moodul".
- Nüüd avate redigeerimisala, kleepige lihtsalt koodid sinna:
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
Valmistuge eelseisvaks ebaõnnestumiseks
Juhtumid tabavad teid alati ootamatult. Seega on parim viis võtta aega ja teha ettevalmistusi. Ettevaatusabinõud võivad hõlmata failide varundamine ja raha väljamaksmine, et saada a rikutud Wordi dokumendi taastamise tööriist. Kuna andmete kadu võib juhtuda igaühega ja igal pool, on aeg midagi ette võtta.
Autori sissejuhatus:
Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli andmete veaparandustööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom