Přejít k hlavnímu obsahu

Prozkoumejte nové, Bezplatná verze Kutools pro Outlook ještě dnes!

Jak přesunout titulky tabulky shora dolů nebo naopak v dokumentu Word?

Autor: Xiaoyang Naposledy změněno: 2024-08-29

V dokumentu aplikace Word, pokud existuje více tabulek, které vložily titulky pod každou tabulku. Někdy ale možná budete chtít tyto titulky přesunout zdola nahoru nad tabulky. Jak jste mohli dávkově řešit tuto práci co nejrychleji?

Přesuňte titulky tabulky zdola nahoru nebo naopak ve Wordu pomocí kódu VBA

Přesuňte titulky tabulky zdola nahoru nebo naopak ve Wordu pomocí kódu VBA

Chcete-li přesunout všechny titulky tabulky zdola nahoru tabulky, následující kód VBA vám udělá laskavost, udělejte to takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující makro do okna modulu.

Přesuňte titulky tabulky v dokumentu Word zdola nahoru

Sub ReLabelDownToUpTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngPre = .Characters.First.Previous.Characters.Last
                xRngPre.Select
                Set xRngNext = .Characters.Last.Next.Paragraphs.First.Range
                xRngNext.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

3. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a všechny titulky tabulky byly přesunuty zdola nahoru tabulky, viz screenshot:

Všechny popisky tabulek se přesunou zdola nahoru

Pozor: Chcete-li přesunout titulky tabulky shora dolů pod každou tabulkou, použijte následující kód VBA:

Přesuňte titulky tabulky v dokumentu Word shora dolů

Sub ReLabelUpToDownTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngNext = .Characters.First.Previous.Paragraphs.First.Range
                xRngNext.Select
                Set xRngPre = .Characters.Last.Next
                xRngPre.End = xRngPre.End - 1
                xRngPre.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Vložit více popisků tabulek, obrázků nebo rovnic do dokumentu aplikace Word najednou

Za normálních okolností byste měli do tabulky, obrázku nebo rovnice vložit titulek tabulky, obrázku nebo rovnice jeden po druhém do souboru aplikace Word. Ale pokud ano Kutoly pro Word's Více titulků Díky této funkci můžete co nejrychleji vložit titulky k tabulkám, obrázkům nebo rovnicím pro všechny tabulky, obrázky nebo rovnice.

Dávkové vkládání titulků

Kutools pro Word je dokonalý doplněk aplikace Word, který zefektivní vaši práci a zlepší vaše dovednosti při zpracování dokumentů. Získejte to hned!

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Generovat obsah / Přepsat text / Dokument Q&A / Získejte rychlé odpovědi / Překládat dokumenty / Polský dokument (zachovat formát)...

📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF...

✏ Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

⭐ Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

Karty Kutools a Kutools Plus na pásu karet aplikace Word
???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????
 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word

Stažení zdarma Kup nyní Zjistěte více o Kutools