2 načina za prilagajanje vsebine celicam v vaši tabeli Word

V tem članku bi radi delili 2 enostavni metodi za prilagajanje vsebine celicam v vaši Wordovi tabeli.

Pri delu s tabelo v Wordovem dokumentu je težko zagotoviti, da vse celice tabele ostanejo v fiksni velikosti. Običajno, ko v celico vnesete več besed, samodejno prelije besedilo. Spodaj je primer:

To zagotovo ni vpadljivo. Kaj pa iskanje načinov, kako popraviti velikost tabele, a vsebino prilagoditi njej?

Na voljo sta dva načina:

1. način: Enkrat pripravite mizo

1. Najprej kliknite znak plus v zgornjem levem kotu tabele, da jo izberete.
2. Nato z desnim klikom na izbrano tabelo.
3. Nato izberite »Lastnosti tabele«.
4. Zdaj v pogovornem oknu »Lastnosti tabele« najprej kliknite zavihek »Celica«.
5. Nato kliknite »Možnosti« v spodnjem desnem kotu polja.
6. Zdaj boste odprli pogovorno okno »Možnosti celice«. Pojdite na del »Možnosti« in počistite polje »Prelomi besedilo«.
7. Namesto tega potrdite polje »Prilagodi besedilu«.
8. Nato kliknite »V redu«.
9. Ne pozabite klikniti tudi »V redu« v pogovornem oknu »Lastnosti tabele«.

Zdaj se bo postavitev vsebine ustrezno spremenila. Tukaj boste dobili:

2. način: Uporabite kode VBA

Urejevalnik VBA v Wordu vam omogoča vnašanje kod za prilagajanje lastnih Wordovih funkcij za hitro in natančno opravljeno delo. Tako lahko udobno uporabite kode, da se zgodi čudež.

1. Najprej kliknite zavihek »Razvijalec«. Če ga še nimate, si lahko ogledate ta članek: Kako vstaviti glasbo v ozadje v dokument Word
2. Nato kliknite »Visual Basic«, da odprete urejevalnik VBA.
3. V urejevalniku VBA poiščite projekt z imenom dokumenta za njim in kliknite »ThisDocument«.
4. Nato v orodni vrstici kliknite »Vstavi«.
5. In v meniju izberite »Modul«.
6. Zdaj boste odprli območje za urejanje, tja samo prilepite kode:

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

Pripravite se na bližajoči se neuspeh

Incidenti vas bodo vedno ujeli nepripravljene. Zato je najboljši način, da si vzamete čas in se pripravite. Previdnostni ukrepi lahko vključujejo varnostno kopiranje datotek in odštevanje nekaj denarja za pridobitev poškodovano orodje za obnovitev Wordovih dokumentov. Ker se lahko izguba podatkov zgodi komur koli kjer koli, je čas, da nekaj storite.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Orodje za odpravljanje napak podatkov Excel in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com