Conas fotheidil tábla a bhogadh ó thuas go dtí thíos nó a mhalairt i ndoiciméad Word?
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:
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. 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 / Fiosraigh le haghaidh Faisnéise bunaithe ar Doiciméad, 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 / Le haghaidh tuilleadh uirlisí a bhaint, ceann chuig ár Bain 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 ar leith / táblaí / cruthanna / míreanna ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...
⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair / cuir isteach téacs athchleachtach go huathoibríoch / scoránaigh gan uaim idir fuinneoga doiciméad / 11 Uirlisí Tiontaithe...