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:
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. 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! |
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 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 / Exportujte stránky jako obrázky / Tisk více souborů najednou...
✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů / 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 / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Tabulka diagonálních čar / Titulek rovnice / Titulek obrázku / Titulek tabulky / Více obrázků / Objevte více v Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje...