İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Yuxarıdan aşağıda və ya əksinə Word sənədində masa başlıqlarını necə daşımaq olar?

Bir Word sənədində, hər bir masanın altındakı adları əlavə edən bir neçə masa varsa. Lakin, bəzən, bu alt yazıları aşağıdan yuxarıdakı cədvəllərə köçürə bilərsiniz. Nə qədər tez bu işlə məşğul olmağı bacarırsınız?

Aşağıdakılardan cədvəl yazılarını yuxarıdan və ya əksinə VBA kodu ilə Word-də köçürün

Word sənədinə birdən çox masa, şəkil və ya bərabər başlıq əlavə edin:

Normalda, masa, şəkil və ya tənlik üçün masa, şəkil və ya tənlik üçün Word faylında bir-birinə əlavə olunmalıdır. Ancaq əgər varsa Word üçün Kutols's Çox tapşırıqlar funksiyanı bütün masalar, şəkillər və ya tənliklər üçün mümkün olan qədər tez bir şəkildə masa, şəkil və ya bərabər yazı əlavə edə bilərsiniz.

2 doc hərəkət masa başlığı

Word üçün Kutools: 100-dən çox 60 lazımlı Word eklentisi ilə, XNUMX gün ərzində heç bir məhdudiyyət olmadan cəhd edin. İndi yukle və pulsuz sınaq üçün tıklayın!


Aşağıdakılardan cədvəl yazılarını yuxarıdan və ya əksinə VBA kodu ilə Word-də köçürün

Bütün masa başlıqlarını aşağıdan yuxarıdakı cədvəllərə keçmək üçün aşağıdakı VBA kodunu bir xeyrə verin, xahiş edirəm:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modulesvə Modul Pəncərəsində aşağıdakı makroyu yapışdırın.

Cədvəl yazılarını aşağıdan yuxarıdan bir Word sənədinə keçin

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. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və bütün masa başlıqları aşağıdan masalara köçürüldü, ekran görünüşünə baxın:

1 doc hərəkət masa başlığı

Qeyd: Cədvəl başlıqlarını yuxarıdan hər masanın altına daşımaq üçün aşağıdakı VBA kodunu tətbiq edin:

Üstündən yuxarıdan masa başlıqlarını Word sənədində daşıyın

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 üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.