3 účinné spôsoby odstránenia nežiaducich medzier v bunkách tabuľky v dokumente Word

V nasledujúcom článku by sme vám chceli ponúknuť 3 efektívne spôsoby, ako odstrániť nežiaduce medzery v bunkách tabuľky v dokumente Word.

Tu a tam musíme vložiť tabuľku, do ktorej sa zmestia texty a údaje. Často ale musíme po zadaní textov a údajov upraviť veľkosť tabuľky. A niekedy dostaneme tabuľku s nežiaducimi medzerami v bunkách po úprave jej veľkosti, napríklad nižšie:

Vo vyššie uvedenom príklade je pod textom v každej bunke prázdny riadok. Nedokážeme sa toho však zbaviť jednoducho stlačením tlačidla „Odstrániť“. Namiesto toho musíme použiť iné riešenie.

Metóda 1: Ručné zúženie výšky riadku

1. V prvom radeost, skontrolujte, či sú v bunkách odstrániteľné prázdne riadky. Ak nejaké existujú, najskôr ich vymažte.
2. Potom umiestnite kurzor na spodný riadok riadku tabuľky. Počkajte, kým sa kurzor zmení na znamienko dvojitých vodorovných čiar s 2 šípkami.
3. Ďalej kliknite a potiahnite dolný riadok nahor, kým nežiaduce miesto nezmizne.
4. Zopakujte kroky 2 a 3 pre ďalšie riadky v tabuľke, ktorých výška musí byť zmenená.

Tu je výsledok:

Metóda 2: Zakážte funkciu „Zadajte výšku“

1. Najskôr kliknite na krížik vľavo hore a vyberte celú tabuľku.
2. Potom kliknite pravým tlačidlom myši a zvoľte „Vlastnosti tabuľky“.
3. V poli „Vlastnosti tabuľky“. Najskôr kliknite na kartu „Riadok“.
4. Ďalej zrušte začiarknutie políčka „Zadať výšku“.
5. Nakoniec kliknite na tlačidlo „OK“.

Účinok je rovnaký ako v prípade metódy 1.

Metóda 3: Použite Word Makro

1. K starAk chcete vypnúť, kliknutím na „Vývojár“ a potom na „Visual Basic“ otvorte editor VBA. Ak karta „Vývojár“ nie je na páse s nástrojmi k dispozícii, stlačte namiesto nich „Alt + F11“.
2. Ďalej prejdite na vytvorenie nového modulu. Kliknite na „Normálne“ v ľavom stĺpci.
3. Potom kliknite na paneli s ponukami na „Vložiť“.
4. V rozbaľovacej ponuke zvoľte možnosť „Modul“.
5. Ďalej dvojitým kliknutím otvorte modul.
6. Teraz vložte nasledujúce kódy do oblasti kódovania:

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. Nakoniec kliknite na „Spustiť“ alebo vykonajte kódy stlačením „F5“.

Toto makro funguje na všetkých tabuľkách v dokumente a odstraňuje nepotrebné medzery.

Porovnanie 3 metód

Akonáhle dôjde k poškodeniu dokumentu

Nie je to tak rare občas získať poškodený dokument. Avšak v okamihu, keď je váš dokument poškodený, je to tiež čas, keď nastúpi strach. Preto, aby ste boli na bezpečnej strane, najrýchlejším spôsobom je zaobstarať si nástroj na opravu opraviť docx aby sa zabránilo ďalšiemu poškodeniu.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S