2 metoder for å justere innholdet slik at det passer i celler i Word-tabellen

I denne artikkelen vil vi dele 2 enkle metoder for å justere innholdet slik at det passer i celler i Word-tabellen.

Når du håndterer en tabell i Word-dokument, er det vanskelig å sikre at alle tabellceller forblir i fast størrelse. Normalt, med flere ord inn i en celle, vil den automatisk bryte tekst. Nedenfor er et eksempel:

Dette er absolutt ikke iøynefallende. Hva med å finne måter å fikse en bordstørrelse på, men få innholdet til å passe det?

Følgende er 2 tilgjengelige måter:

Metode 1: Sett et bord én gang

1. Først klikker du på plusstegnet i øvre venstre hjørne av tabellen for å velge det.
2. Deretter høyreklikker du på den valgte tabellen.
3. Velg deretter "Tabellegenskaper".
4. I dialogboksen "Tabellegenskaper" klikker du først på "Celle"-fanen.
5. Klikk deretter "Alternativer" i høyre hjørne av boksen.
6. Nå vil du åpne dialogboksen "Cell Options". Gå til "Alternativer"-delen, og fjern "Wrap text"-boksen.
7. Og merk av "Tilpass tekst"-boksen i stedet.
8. Klikk deretter “OK”.
9. Og husk å klikke "OK" i dialogboksen "Tabellegenskaper" også.

Nå vil innholdsoppsettet endres tilsvarende. Her er hva du får:

Metode 2: Bruk VBA-koder

VBA-editoren i Word lar deg skrive inn koder for å tilpasse dine egne Word-funksjoner for å få jobb gjort på en rask og ryddig måte. Så du kan komfortabelt bruke koder for å få miraklet til å skje.

1. Først og fremst, klikk på fanen «Utvikler». Hvis du ikke allerede har den, kan du se denne artikkelen: Slik setter du inn bakgrunnsmusikk i Word-dokumentet ditt
2. Klikk deretter "Visual Basic" for å åpne VBA-redigering.
3. I VBA editor, finn prosjektet med dokumentnavnet etter det og klikk "ThisDocument".
4. Deretter klikker du på "Sett inn" på verktøylinjen.
5. Og velg "Modul" på menyen.
6. Nå vil du åpne redigeringsområdet, bare lim inn koder der:

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

Forbered deg på den forestående fiaskoen

Hendelser vil alltid fange deg på vakt. Så den beste måten er å ta tid og forberede seg. Forsiktige tiltak kan inkludere sikkerhetskopiering av filer og utbetaling av penger for å få en korrupt Word doc gjenopprettingsverktøy. Siden tap av data kan skje med hvem som helst hvor som helst, er det på tide å gjøre noe.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Verktøy for reparasjon av Excel-datafeil og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med