Sut i symud capsiynau tabl oddi uchod i isod neu i'r gwrthwyneb yn nogfen Word?
Mewn dogfen Word, os oes tablau lluosog sydd wedi mewnosod capsiynau o dan bob tabl. Ond, weithiau, efallai yr hoffech chi symud y capsiynau hyn oddi isod i uchod o'r tablau. Sut allech chi ymdopi â'r swydd hon mor gyflym ag y gallwch?
Symud capsiynau tabl oddi isod i uchod neu i'r gwrthwyneb yn Word gyda chod VBA
Symud capsiynau tabl oddi isod i uchod neu i'r gwrthwyneb yn Word gyda chod VBA
I symud yr holl gapsiynau tabl o isod i uchod o'r tablau, a yw'r cod VBA canlynol yn ffafrio chi, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl.
Symudwch gapsiynau tabl oddi isod i uchod mewn dogfen Word
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. Yna, pwyswch F5 allwedd i redeg y cod hwn, ac mae'r holl gapsiynau tabl wedi'u symud o isod i uchod o'r tablau, gweler y screenshot:
Nodyn: I symud y capsiynau tabl oddi uchod i isod pob tabl, defnyddiwch y cod VBA canlynol:
Symudwch gapsiynau tabl oddi uchod i isod mewn dogfen Word
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
|
Mewnosodwch gapsiynau tabl, llun neu hafaliad lluosog yn nogfen Word ar unwaith:
Fel rheol, dylech fewnosod y pennawd tabl, llun neu hafaliad ar gyfer y tabl, delwedd neu hafaliad fesul un yn ffeil Word. Ond, os oes gennych chi Kutols am Air's Penawdau Lluosog nodwedd, gallwch fewnosod y tablau, delwedd neu hafaliadau hafaliad ar gyfer yr holl dablau, delweddau neu hafaliadau cyn gynted â phosibl.
Kutools am Word: gyda mwy na 100 o ychwanegiadau Word defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod. Cliciwch i Lawrlwytho a threial am ddim Nawr! |
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys / Ailysgrifennu Testun / Crynhoi Dogfennau / Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF / Allforio Tudalennau fel Delweddau / Argraffu Ffeiliau Lluosog ar unwaith...
✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...
🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Pob Pennawd / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...
➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Tabl Llinell Lletraws / Pennawd Hafaliad / Capsiwn Delwedd / Pennawd Tabl / Lluniau Lluosog / Darganfod mwy yn y Mewnosod Grŵp...
🔍 Detholiadau Manwl: pinbwynt tudalennau penodol / tablau / siapiau / paragraffau pennawd / Gwella llywio gyda mwy Dewiswch nodweddion...
⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad / auto-mewnosod testun ailadroddus / toglo'n ddi-dor rhwng ffenestri dogfennau / 11 Offer Trosi...
