În acest articol, am dori să împărtășim 2 metode simple de a ajusta conținutul pentru a se potrivi în celulele din tabelul Word.
Când aveți de-a face cu un tabel în document Word, este greu să vă asigurați că toate celulele tabelului rămân în dimensiune fixă. În mod normal, cu mai multe cuvinte introduse într-o celulă, acesta va încheia automat textul. Mai jos este un exemplu:
Acest lucru cu siguranță nu este atrăgător. Ce zici de a găsi modalități de a remedia dimensiunea unui tabel, dar pentru a face conținutul să se potrivească?
Următoarele sunt disponibile 2 moduri:
Metoda 1: Setați un tabel o dată
- La început, faceți clic pe semnul plus din colțul din stânga sus al tabelului pentru a-l selecta.
- Apoi, faceți clic dreapta pe tabelul selectat.
- Apoi alegeți „Proprietăți tabel”.
- Acum, în caseta de dialog „Proprietăți tabel”, faceți mai întâi clic pe fila „Celulă”.
- Apoi faceți clic pe „Opțiuni” în colțul din dreapta jos al casetei.
- Acum veți deschide caseta de dialog „Opțiuni pentru celulă”. Accesați partea „Opțiuni” și debifați caseta „Încheiere text”.
- Și bifați caseta „Fit text” în schimb.
- Apoi faceți clic pe „OK”.
- Și nu uitați să faceți clic pe „OK” și în caseta de dialog „Proprietăți tabel”.
Acum, aspectul conținutului se va schimba în consecință. Iată ce vei obține:
Metoda 2: Utilizați coduri VBA
Editorul VBA din Word vă permite să introduceți coduri pentru a vă personaliza propriile funcții Word pentru a realiza lucrările într-un mod rapid și ordonat. Așa că puteți folosi comod coduri pentru a face miracolul să se întâmple.
- În primul rând, faceți clic pe fila „Dezvoltator”. Dacă nu o aveți deja, puteți consulta acest articol: Cum să inserați muzică de fundal în documentul dvs. Word
- Apoi, faceți clic pe „Visual Basic” pentru a deschide editorul VBA.
- În editorul VBA, găsiți proiectul cu numele documentului după el și faceți clic pe „ThisDocument”.
- Apoi, faceți clic pe „Inserați” pe bara de instrumente.
- Și alegeți „Modul” din meniu.
- Acum veți deschide zona de editare, doar lipiți codurile acolo:
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
Pregătiți-vă pentru eșecul iminent
Incidentele te vor prinde mereu pe nepregătite. Deci, cel mai bun mod este să vă faceți timp și să vă pregătiți. Măsurile de precauție pot include copierea de rezervă a fișierelor și scoaterea unor bani pentru a obține a instrument corupt de recuperare a documentelor Word. Deoarece pierderea datelor se poate întâmpla oricui oriunde, este timpul să faceți ceva.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Instrument de remediere a erorilor de date Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com





