Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս տեղափոխել աղյուսակի վերնագրերը վերևից ներքև կամ հակառակը 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 այս կոդը գործարկելու համար ստեղնը, և բոլոր աղյուսակների վերնագրերը տեղափոխվել են սեղանների ներքևից վերև, տես նկարի նկարը.

doc տեղափոխման աղյուսակ վերնագիր 1

ՆշումՍեղանի վերնագրերը յուրաքանչյուր աղյուսակից վերևից ներքև տեղափոխելու համար կիրառեք հետևյալ 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 Բազմաթիվ ենթագրեր առանձնահատկությունը, դուք կարող եք որքան հնարավոր է արագ ներդնել բոլոր աղյուսակների, պատկերների կամ հավասարումների համար աղյուսակը, պատկերը կամ հավասարության վերնագրերը:

doc տեղափոխման աղյուսակ վերնագիր 2

Kutools բառի համարավելի քան 100 հարմար Word հավելվածներով, 60 օրվա ընթացքում առանց սահմանափակումների անվճար փորձեք: Սեղմեք ՝ հիմա ներբեռնելու և անվճար փորձարկման համար:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր