Ինչպե՞ս տեղափոխել աղյուսակի վերնագրերը վերևից ներքև կամ հակառակը Word փաստաթղթում:
Word փաստաթղթում, եթե կան բազմաթիվ աղյուսակներ, որոնք յուրաքանչյուր սեղանի տակ տեղադրել են վերնագրեր: Բայց երբեմն գուցե ցանկանաք այս վերնագրերը տեղափոխել սեղանների ներքևից վերև: Ինչպե՞ս կարող եք խմբաքանակով զբաղվել այս աշխատանքով որքան հնարավոր է արագ:
VBA կոդով Word- ում տեղափոխեք աղյուսակի վերնագրերը ներքևից վերև կամ հակառակը
VBA կոդով Word- ում տեղափոխեք աղյուսակի վերնագրերը ներքևից վերև կամ հակառակը
Աղյուսակների բոլոր վերնագրերը սեղաններից ներքևից վերև տեղափոխելու համար հետևյալ VBA կոդը ձեզ լավություն է տալիս, արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը Մոդուլի պատուհանում:
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, Հետո, սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, և բոլոր աղյուսակների վերնագրերը տեղափոխվել են սեղանների ներքևից վերև, տես նկարի նկարը.
ՆշումՍեղանի վերնագրերը յուրաքանչյուր աղյուսակից վերևից ներքև տեղափոխելու համար կիրառեք հետևյալ VBA կոդը.
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
Word փաստաթղթում միանգամից տեղադրեք բազմաթիվ աղյուսակներ, նկարներ կամ հավասարումների վերնագրեր.
Սովորաբար, Word ֆայլում պետք է աղյուսակը, նկարը կամ հավասարման վերնագիրը մեկ առ մեկ ներդնել աղյուսակի, պատկերի կամ հավասարման համար: Բայց եթե ունեք Կուտոլներ բառի համար's Բազմաթիվ ենթագրեր առանձնահատկությունը, դուք կարող եք որքան հնարավոր է արագ ներդնել բոլոր աղյուսակների, պատկերների կամ հավասարումների համար աղյուսակը, պատկերը կամ հավասարության վերնագրերը: Kutools բառի համարավելի քան 100 հարմար Word հավելվածներով, 60 օրվա ընթացքում առանց սահմանափակումների անվճար փորձեք: Սեղմեք ՝ հիմա ներբեռնելու և անվճար փորձարկման համար: |
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրեք խումբը...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր / սեղաններ / ձեւավորում / վերնագրի պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր / կրկնվող տեքստի ավտոմատ տեղադրում / անխափան անցում փաստաթղթի պատուհանների միջև / 11 Փոխակերպման գործիքներ...