2 Metoder til at justere indholdet, så det passer ind i celler i din ordtabel

I denne artikel vil vi gerne dele 2 nemme metoder til at justere indholdet, så det passer ind i celler i din Word-tabel.

Når du behandler en tabel i Word-dokument, er det svært at sikre, at alle tabelceller forbliver i fast størrelse. Normalt, med flere ord, der er indtastet i en celle, indpakker den automatisk tekst. Nedenfor er et eksempel:

Dette er bestemt ikke iøjnefaldende. Hvad med at finde måder at rette en bordstørrelse på, men få indholdet til at passe det?

Følgende er 2 tilgængelige måder:

Metode 1: Dæk en tabel en gang

1. Klik først på plustegnet i øverste venstre hjørne af tabellen for at vælge det.
2. Højreklik derefter på den valgte tabel.
3. Vælg derefter "Tabelegenskaber".
4. Nu i dialogboksen "Tabelegenskaber" skal du først klikke på "Celle" -fanen.
5. Klik derefter på "Indstillinger" i højre hjørne af feltet.
6. Nu åbner du dialogboksen "Celleindstillinger". Gå til "Indstillinger" -delen, og ryd feltet "Indpak tekst".
7. Og afkryds "Tilpas tekst" i stedet.
8. Klik derefter på “OK”.
9. Og husk også at klikke på "OK" i dialogboksen "Tabelegenskaber".

Nu ændres indholdslayoutet i overensstemmelse hermed. Her er hvad du får:

Metode 2: Brug VBA-koder

VBA-editoren i Word giver dig mulighed for at skrive koder for at tilpasse dine egne Word-funktioner for at få job udført på en hurtig og pæn måde. Så du kan komfortabelt bruge koder for at få miraklet til at ske.

1. Først og fremmest skal du klikke på fanen "Udvikler". Hvis du ikke allerede har den, kan du læse denne artikel: Sådan indsættes baggrundsmusik i dit Word-dokument
2. Klik derefter på “Visual Basic” for at åbne VBA editor.
3. I VBA-editoren skal du finde projektet med dokumentnavnet efter det og klikke på “ThisDocument”.
4. Klik derefter på "Indsæt" på værktøjslinjen.
5. Og vælg "Module" i menuen.
6. Nu åbner du redigeringsområdet, bare indsæt 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 dig på den forestående fiasko

Hændelser vil altid fange dig ude af vagt. Så den bedste måde er at tage tid og forberede sig. Forsigtige foranstaltninger kan omfatte sikkerhedskopiering af filer og beskydning af nogle penge for at få en beskadiget Word doc opsving værktøj. Da datatab kan ske for enhver hvor som helst, er det tid til at gøre noget.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder Excel-datafejlrettelsesværktøj og pdf produkter til reparation af software. For mere information besøg www.datanumen.com