Hogyan mozgassuk a táblázat feliratait felülről lefelé vagy fordítva a Word dokumentumban?
Ha egy Word dokumentumban több táblázat van, amelyek az egyes táblák alá feliratokat illesztettek. De néha érdemes áthelyeznie ezeket a feliratokat a táblázatok alulról felfelé. Hogyan tudná ezt a munkát a lehető leggyorsabban szakaszosan kezelni?
Táblázatfeliratok áthelyezése alulról felfelé vagy fordítva a Wordben VBA kóddal
Táblázatfeliratok áthelyezése alulról felfelé vagy fordítva a Wordben VBA kóddal
Ha az összes táblázati feliratot alulról a táblák fölé kívánja helyezni, a következő VBA-kód kedvez Önnek, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablakba.
Táblázatfeliratok alulról felfelé mozgatása egy Word dokumentumban
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. Ezután nyomja meg a gombot F5 kulcsa ennek a kódnak a futtatásához, és az összes táblafelirat áthelyeződött alulról a táblák fölé, lásd a képernyőképet:
Megjegyzések: Az egyes táblázatok feliratának fentről lefelé történő áthelyezéséhez kérjük, alkalmazza a következő VBA kódot:
Táblázatfeliratok mozgatása fentről lefelé egy Word dokumentumban
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
Egyszerre több táblázat, kép vagy egyenlet feliratot illesszen be a Word dokumentumba:
Normál esetben a táblához, a képhez vagy az egyenlethez tartozó feliratot egyesével be kell illesztenie a Word fájlba. De, ha van Kutols for Word's Több felirat funkcióval a lehető leggyorsabban beszúrhatja az összes tábla, kép vagy egyenlet táblázatait, képeit vagy egyenleteit. Kutools for Word: több mint 100 praktikus Word-bővítménnyel, 60 nap alatt szabadon kipróbálható korlátozás nélkül. Kattintson a letöltéshez és ingyenes próbaverzióhoz most! |
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...