V tomto článku bychom se rádi podělili o 2 snadné způsoby, jak upravit obsah tak, aby se vešel do buněk v tabulce aplikace Word.
Při práci s tabulkou v dokumentu aplikace Word je těžké zajistit, aby všechny buňky tabulky zůstaly v pevné velikosti. Normálně, když je do buňky vloženo více slov, automaticky zalomí text. Níže je uveden příklad:
To rozhodně není poutavé. Co takhle najít způsoby, jak opravit velikost tabulky, ale přizpůsobit jí obsah?
K dispozici jsou 2 způsoby:
Metoda 1: Nastavte tabulku jednou
- Nejprve klikněte na znaménko plus v levém horním rohu tabulky a vyberte ji.
- Poté klikněte pravým tlačítkem na vybranou tabulku.
- Dále vyberte „Vlastnosti tabulky“.
- Nyní v dialogovém okně „Vlastnosti tabulky“ klikněte nejprve na kartu „Buňka“.
- Poté klikněte na „Možnosti“ v pravém dolním rohu pole.
- Nyní otevřete dialogové okno „Možnosti buňky“. Přejděte do části „Možnosti“ a zrušte zaškrtnutí políčka „Zalomit text“.
- A místo toho zaškrtněte políčko „Přizpůsobit text“.
- Poté klikněte na „OK“.
- Nezapomeňte také kliknout na „OK“ v dialogovém okně „Vlastnosti tabulky“.
Nyní se odpovídajícím způsobem změní rozložení obsahu. Zde je to, co získáte:
Metoda 2: Využijte kódy VBA
Editor VBA ve Wordu vám umožňuje zadávat kódy pro přizpůsobení vašich vlastních funkcí Wordu tak, aby byly úkoly prováděny rychle a úhledně. Můžete tedy pohodlně používat kódy k uskutečnění zázraku.
- Nejprve klikněte na kartu „Vývojář“. Pokud ji ještě nemáte, můžete se podívat na tento článek: Jak vložit hudbu na pozadí do dokumentu Word
- Poté kliknutím na „Visual Basic“ otevřete editor VBA.
- V editoru VBA najděte projekt s názvem dokumentu za ním a klikněte na „ThisDocument“.
- Dále klikněte na „Vložit“ na panelu nástrojů.
- V nabídce vyberte „Modul“.
- Nyní otevřete editační oblast, stačí tam vložit kódy:
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
Připravte se na blížící se selhání
Incidenty vás vždy zaskočí. Takže nejlepší způsob je udělat si čas a připravit se. Preventivní opatření mohou zahrnovat zálohování souborů a vyplacení peněz, abyste získali a poškozený nástroj pro obnovu dokumentů Word. Protože ztráta dat se může stát komukoli a kdekoli, je čas něco udělat.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Nástroj pro opravu chyb dat v Excelu a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com