U ovom članku želimo podijeliti 2 jednostavna načina za prilagođavanje sadržaja tako da stane u ćelije u vašoj Word tablici.
Kada radite sa tabelom u Word dokumentu, teško je osigurati da sve ćelije tabele ostanu u fiksnoj veličini. Obično, s više riječi unesenih u ćeliju, automatski će premotati tekst. Ispod je primjer:
Ovo sigurno ne upada u oči. Šta kažete na pronalaženje načina da popravite veličinu tabele, ali da joj sadržaj prilagodite?
Dostupna su 2 načina:
Metoda 1: Postavite sto jednom
- Prvo kliknite na znak plus u gornjem lijevom kutu tabele da biste ga odabrali.
- Zatim kliknite desnim tasterom miša na izabranu tabelu.
- Zatim odaberite “Svojstva tabele”.
- Sada u dijaloškom okviru „Svojstva tabele“ prvo kliknite karticu „Ćelija“.
- Zatim kliknite na "Opcije" u desnom donjem uglu okvira.
- Sada ćete otvoriti dijaloški okvir "Opcije ćelije". Idite na dio “Opcije” i poništite okvir “Prelom teksta”.
- Umjesto toga, označite okvir "Uklopi tekst".
- Zatim kliknite "OK".
- I ne zaboravite da kliknete na “OK” u dijaloškom okviru “Svojstva tabele”.
Sada će se raspored sadržaja u skladu s tim promijeniti. Evo šta ćete dobiti:
Metoda 2: Koristite VBA kodove
VBA uređivač u Wordu vam omogućava da kucate kodove za prilagođavanje sopstvenih Word funkcija da biste obavljali poslove na brz i uredan način. Tako da možete udobno koristiti kodove da se čudo dogodi.
- Prvo i najvažnije, kliknite na karticu "Programer". Ako je već nemate, možete pogledati ovaj članak: Kako umetnuti pozadinsku muziku u Word dokument
- Zatim kliknite na "Visual Basic" da otvorite VBA editor.
- U VBA editoru pronađite projekat sa imenom dokumenta iza njega i kliknite na „Ovaj dokument“.
- Zatim kliknite na “Insert” na alatnoj traci.
- I izaberite “Module” na meniju.
- Sada ćete otvoriti područje za uređivanje, samo tamo zalijepite kodove:
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
Pripremite se za predstojeći neuspjeh
Incidenti će vas uvijek zateći nespremne. Dakle, najbolji način je da odvojite vrijeme i pripremite se. Mjere opreza mogu uključivati pravljenje sigurnosne kopije datoteka i izdvajanje novca za dobivanje a korumpirani Word doc alat za oporavak. Budući da se gubitak podataka može dogoditi bilo kome i bilo gdje, vrijeme je da se nešto učini.
Uvod za autora:
Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Alat za ispravljanje grešaka u Excelu u podacima i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com