2 metoder för att justera innehållet så att det passar i celler i din Word-tabell

I den här artikeln vill vi dela två enkla metoder för att justera innehållet så att det passar i celler i din Word-tabell.

När du hanterar en tabell i Word-dokument är det svårt att se till att alla tabellceller förblir i fast storlek. Normalt, med fler ord inmatade i en cell, kommer den automatiskt att radbryta text. Nedan är ett exempel:

Detta är verkligen inte iögonfallande. Vad sägs om att hitta sätt att fixa en bordsstorlek men få innehållet att passa den?

Följande är 2 tillgängliga sätt:

Metod 1: Ställ ett bord en gång

1. Klicka först på plustecknet i det övre vänstra hörnet av tabellen för att välja det.
2. Högerklicka sedan på den valda tabellen.
3. Välj sedan "Tabellegenskaper".
4. I dialogrutan "Tabellegenskaper" klickar du först på fliken "Cell".
5. Klicka sedan på "Alternativ" i det högra hörnet av rutan.
6. Nu kommer du att öppna dialogrutan "Cellalternativ". Gå till "Alternativ"-delen och avmarkera "Wrap text"-rutan.
7. Och kryssa i rutan "Anpassa text" istället.
8. Klicka sedan på “OK”.
9. Och kom ihåg att klicka på "OK" i dialogrutan "Tabellegenskaper" också.

Nu kommer innehållslayouten att ändras därefter. Här är vad du får:

Metod 2: Använd VBA-koder

VBA-redigeraren i Word låter dig skriva koder för att anpassa dina egna Word-funktioner för att få jobb gjorda på ett snabbt och snyggt sätt. Så du kan bekvämt använda koder för att få miraklet att hända.

1. Klicka först och främst på fliken ”Utvecklare”. Om du inte redan har den kan du läsa den här artikeln: Hur man infogar bakgrundsmusik i ditt Word-dokument
2. Klicka sedan på "Visual Basic" för att öppna VBA-redigeraren.
3. I VBA-redigeraren, hitta projektet med dokumentnamnet efter det och klicka på "ThisDocument".
4. Klicka sedan på "Infoga" i verktygsfältet.
5. Och välj ”Modul” på menyn.
6. Nu kommer du att öppna redigeringsområdet, klistra bara in koder där:

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

Förbered dig på det förestående misslyckandet

Incidenter kommer alltid att överraska dig. Så det bästa sättet är att ta tid och förbereda sig. Försiktighetsåtgärder kan inkludera säkerhetskopiering av filer och punga ut lite pengar för att få en korrupt Word doc återställningsverktyg. Eftersom dataförlust kan hända vem som helst var som helst, är det dags att göra något.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive Verktyg för att fixa datafel i Excel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com