Skip to main content

Conas fotheidil tábla a bhogadh ó thuas go dtí thíos nó a mhalairt i ndoiciméad Word?

Údar: Xiaoyang Athraithe Deiridh: 2020-08-07

I ndoiciméad Word, má tá táblaí iolracha ann a chuir fotheidil isteach faoi gach tábla. Ach, uaireanta, b’fhéidir gur mhaith leat na fotheidil seo a bhogadh ó thíos go dtí thuas na táblaí. Conas a d’fhéadfá déileáil leis an bpost seo chomh tapa agus is féidir leat?

Bog fotheidil tábla ó thíos go dtí thuas nó vice versa i Word le cód VBA


Bog fotheidil tábla ó thíos go dtí thuas nó vice versa i Word le cód VBA

Chun gach ceannteideal tábla a bhogadh ó thíos go dtí thuas de na táblaí, is fearr leat an cód VBA seo a leanas, déan é seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas i bhFuinneog an Mhodúil.

Bog ceannteidil tábla ó thíos go thuas i ndoiciméad 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. Ansin, brúigh F5 eochair chun an cód seo a rith, agus aistríodh gach ceannteideal tábla ó thíos go dtí thuas na táblaí, féach an scáileán:

fotheideal tábla gluaiseachta doc 1

nótaí: Chun na fotheidil tábla a bhogadh ó thuas go thíos de gach tábla, cuir an cód VBA seo a leanas i bhfeidhm:

Bog ceannteidil tábla ó thuas go thíos i ndoiciméad 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

Cuir isteach fotheidil iolracha tábla, pictiúr nó cothromóide i ndoiciméad Word ag an am céanna:

De ghnáth, ba cheart duit an fotheideal tábla, pictiúr nó cothromóid don tábla, íomhá nó cothromóid a ionghabháil ceann ar cheann i gcomhad Word. Ach, má tá Kutols le haghaidh Word's Fotheidil Il gné, is féidir leat an ceannteideal tábla, íomhá nó cothromóid a chur isteach do gach tábla, íomhá nó cothromóid chomh tapa agus is féidir.

fotheideal tábla gluaiseachta doc 2

Kutools le haghaidh Word: le níos mó ná 100 breiseán áisiúil Word, saor in aisce le triail gan aon teorannú i gceann 60 lá. Cliceáil chun Íoslódáil agus triail saor in aisce Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!

🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar  /  Athscríobh Téacs  /  Déan achoimre ar Dhoiciméid  /  Faigh Freagraí Tapa, ar fad laistigh de Word

📘 Máistreacht Doiciméad: Leathanaigh Scoilte  /  Cumaisc Doiciméid  /  Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...)  /  Baisc a thiontú go PDF  /  Easpórtáil Leathanaigh mar Íomhánna  /  Priontáil Comhaid Il ag an am céanna...

Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il  /  Athraigh Méid Gach Pictiúr  /  Trasnaigh Rónna Tábla agus Colúin  /  Tiontaigh Tábla go Téacs...

🧹 Effortless Glan: Sguab as Spásanna Breise  /  Sosanna Alt  /  Gach Ceanntásca  /  Boscaí Téacs  /  Hipearnasc  / Chun níos mó uirlisí a bhaint, ceann go dtí an Bain an grúpa...

Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir  /  Boscaí Seiceála  /  Cnaipí Raidió  /  Cód QR  /  barcode  /  Tábla Líne Trasnánach  /  Fotheideal Cothromóid  /  Fotheideal Íomhá  /  Fotheideal Tábla  /  Pictiúir Il  / Faigh amach níos mó sa Cuir isteach grúpa...

🔍 Roghanna Beachtais: Pionta Leathanaigh Sonracha  /  Táblaí  /  cruthanna  /  Míreanna Ceannteideal  / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...

Feabhsuithe Réalta: Déan nascleanúint chuig Suíomh ar bith  /  Uath-Ionsáigh Téacs Athchleachtach  /  Scoránaigh Idir Windows Doiciméad  /  11 Uirlisí Tiontaithe...

???? Ar mhaith leat triail a bhaint as na gnéithe seo? Íoslódáil Kutools do Word inniu agus taithí a fháil ar an difríocht! 🚀
 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations