Word belgesinde Tablo Başlığı'nı yukarıdan aşağıya veya tam tersi yönde nasıl taşıyabilirsiniz?

Bir Word belgesinde, her tablonun altında Başlık Ekle içeren birden fazla tablo bulunuyorsa bazen bu başlıkları tabloların altından üstüne taşımak isteyebilirsiniz. Bu işlemi mümkün olduğunca hızlı bir şekilde nasıl toplu olarak yapabilirsiniz?

Word'de VBA kodu ile Tablo Başlığı'i aşağıdan yukarıya veya tam tersi yönde taşıma

---

Word'de VBA kodu ile Tablo Başlığı'i aşağıdan yukarıya veya tam tersi yönde taşıma

Tüm Tablo Başlığı'leri tabloların altından üstüne taşımak için aşağıdaki VBA kodu size yardımcı olur; lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.

2. Ekle > Modül’e tıklayın, ardından aşağıdaki makroyu Modül Penceresine yapıştırın.

Word belgesinde Tablo Başlığı'i aşağıdan yukarıya taşıma

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. Ardından, bu kodu çalıştırmak için F5 tuşuna basın; tüm Tablo Başlıkları tabloların altından üstüne taşınmış olacak. Ekran görüntüsüne bakın:

Not: Her tablonun üstündeki Tablo Başlığı'leri altına taşımak için lütfen aşağıdaki VBA kodunu uygulayın:

Word belgesinde Tablo Başlığı'i yukarıdan aşağıya taşıma

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 belgesine birden fazla tabloyu, resmi veya Denklem Başlığı'i aynı anda ekleyin Normalde, Word dosyasında tablolar, resimler veya denklemler için başlıkları tek tek eklemeniz gerekir. Ancak Kutols for Word'ın Birden Fazla Başlık özelliğine sahipseniz, tüm tablolar, resimler ve denklemler için ilgili başlıkları mümkün olan en kısa sürede ekleyebilirsiniz. Word’de benzer görevleri daha hızlı tamamlamanın bir yolunu mu arıyorsunuz? Kutools for Word’ü deneyin ve günlük işlerinizi kolaylaştırın! İndirinDaha Fazla Bilgi Edinin