3 účinné způsoby, jak odstranit nežádoucí mezery v buňkách tabulky v dokumentu Word

V následujícím článku bychom vám chtěli nabídnout 3 efektivní způsoby, jak odstranit nežádoucí mezery v buňkách tabulky v dokumentu Word.

Občas musíme do tabulky vložit text a data. Po zadání textů a dat však často musíme upravit velikost tabulky. A někdy po úpravě její velikosti dostaneme tabulku s nechtěnými mezerami v buňkách, například níže:

Ve výše uvedeném příkladu je pod textem v každé buňce prázdný řádek. Ale nejsme schopni se ho zbavit jednoduše stisknutím „Odstranit“. Místo toho musíme použít jiná řešení.

Metoda 1: Ruční zúžení výšky řádku

1. Nejprve zkontrolujte, zda se v buňkách nenacházejí prázdné řádky, které lze odstranit. Pokud nějaké, nejprve je smažte.
2. Poté umístěte kurzor na spodní řádek řádku tabulky. Počkejte, až se kurzor změní na znaménko dvojitých vodorovných čar se 2 šipkami.
3. Dále klikněte a táhněte spodní řádek nahoru, dokud nevymizí nechtěné místo.
4. Opakujte kroky 2 a 3 pro další řádky v tabulce, jejichž výška musí být změněna.

Zde je výsledek:

Metoda 2: Zakažte funkci „Specifikovat výšku“

1. Nejprve klikněte na křížek v levém horním rohu a vyberte celou tabulku.
2. Poté klikněte pravým tlačítkem a vyberte „Vlastnosti tabulky“.
3. V poli „Vlastnosti tabulky“. Nejprve klikněte na kartu „Řádek“.
4. Dále zrušte zaškrtnutí políčka „Určit výšku“.
5. Nakonec klikněte na „OK“.

Účinek je stejný jako v metodě 1.

Metoda 3: Použijte Word Makro

1. Chcete-li začít, klikněte na „Vývojář“ a poté na „Visual Basic“ a otevřete editor VBA. Pokud karta „Vývojář“ není na pásu karet k dispozici, stiskněte místo ní klávesy „Alt+F11“.
2. Dále přejděte k vytvoření nového modulu. V levém sloupci klikněte na „Normální“.
3. Poté klikněte na liště nabídek na „Vložit“.
4. V rozbalovací nabídce vyberte možnost „Modul“.
5. Dalším dvojitým kliknutím otevřete modul.
6. Nyní vložte následující kódy do oblasti kódování:

Sub RemoveSpacesInTables()
  Dim objTable As Table
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    If .Tables.Count > 0 Then
      For Each objTable In .Tables
        objTable.Select
        Selection.Rows.HeightRule = wdRowHeightAuto
        Selection.Rows.Height = InchesToPoints(0)
      Next objTable
    Else
      MsgBox ("This document contains no table.")
    End If
  End With
End Sub

7. Nakonec klikněte na „Spustit“ nebo proveďte kódy stisknutím „F5“.

Toto makro musí fungovat na všech tabulkách v dokumentu a odstranit zbytečné mezery.

Srovnání 3 metod

Jakmile dojde k poškození dokumentu

Není neobvyklé, že se vám občas stane poškozený dokument. V okamžiku, kdy je však váš dokument poškozen, se však dostaví strach. Proto je pro jistotu nejrychlejším postupem pořídit si nástroj pro opravu. opravit docx aby se zabránilo dalšímu poškození.

Ú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ě opravit Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com