Skip i'r prif gynnwys

Archwiliwch y newydd, fersiwn am ddim o Kutools ar gyfer Outlook heddiw!

Sut i symud capsiynau tabl oddi uchod i isod neu i'r gwrthwyneb yn nogfen Word?

Awdur: Xiaoyang Wedi'i Addasu Diwethaf: 2024-08-29

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:

Symudir pob capsiwn tabl o'r isod i'r uchod

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

Mewnosod capsiynau tabl, llun neu hafaliad lluosog i ddogfen 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.

Capsiynau Mewnosod Swp

Kutools am Word yw'r ychwanegiad Word eithaf sy'n symleiddio'ch gwaith ac yn rhoi hwb i'ch sgiliau prosesu dogfennau. Ei gael Nawr!

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...

📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...

✏ Golygu Cynnwys: Darganfod Swp 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 / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...

🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...

⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...

Tabiau Kutools a Kutools Plus ar y Word Ribbon
???? Eisiau rhoi cynnig ar y nodweddion hyn? Dadlwythwch Kutools ar gyfer Word nawr! 🚀
 

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - 100+ Offer ar gyfer Word

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools