Note: The other languages of the website are Google-translated. Back to English
English English

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

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:

dokument přesunout tabulku titulek 1

Poznámka: 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žte více titulků k tabulce, obrázku nebo rovnici do dokumentu 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.

dokument přesunout tabulku titulek 2

Kutools pro Word: s více než 100 užitečnými doplňky Wordu, můžete to vyzkoušet bez omezení za 60 dní. Kliknutím stáhněte a vyzkoušejte zdarma!


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění