Word belgesinde tablo başlıklarını yukarıdan aşağıya veya tersine nasıl taşırsınız?
Bir Word belgesinde, her tablonun altında eklenmiş başlıklar içeren birden fazla tablo varsa, 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 toplu olarak nasıl halledebilirsiniz?
VBA kodu kullanarak Word'de tablo başlıklarını aşağıdan yukarıya veya tersine taşıma
VBA kodu kullanarak Word'de tablo başlıklarını aşağıdan yukarıya veya tersine taşıma
Tabloların altındaki tüm başlıkları yukarı taşımak için aşağıdaki VBA kodu size yardımcı olacaktır, lütfen şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.
2. Ekle Insert > Module'e tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın.
Word belgesinde tablo başlıklarını 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 ve tüm tablo başlıkları tabloların altından üstüne taşınmış olacak, ekran görüntüsüne bakın:
Not: Tablo başlıklarını tabloların üstünden altına taşımak için lütfen aşağıdaki VBA kodunu uygulayın:
Word belgesinde tablo başlıklarını 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
Birden fazla tablo, resim veya denklem başlığını Word belgesine aynı anda eklemeNormalde, Word dosyasında tablo, resim veya denklem için tek tek tablo, resim veya denklem başlığı eklemelisiniz. Ancak, Kutools for Word'un Birden Fazla Başlık özelliğine sahipseniz, tüm tablolar, resimler veya denklemler için tablo, resim veya denklem başlıklarını mümkün olan en hızlı şekilde ekleyebilirsiniz. Kutools for Word, işinizi kolaylaştıran ve belge işleme becerilerinizi artıran en kapsamlı Word eklentisidir. Hemen Edinin! |
En İyi Ofis Verimlilik Araçları
Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile Zirveye Taşıyın!
🤖 Kutools AI Özellikleri: Yapay Zeka Asistanı / Gerçek Zamanlı Asistan / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...
📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu PDF’ye Dönüştür...
✏ İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Tablo Satır ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Fazla Boşlukları / Bölüm Sonlarını / Metin Kutularını / Bağlantıları Kolayca Temizleyin. Daha fazla kaldırma aracı için Kaldır grubuna göz atın...
➕ Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu / Barkod / Birden Fazla Resim / Ekle grubunda daha fazlasını keşfedin...
🔍 Hassas Seçimler: Belirli Sayfaları / Tabloları / Şekilleri / Başlık Paragraflarını Hedefleyin; daha fazla Seç özelliğiyle gezinmeyi geliştirin...
⭐ Yıldız Geliştirmeler: Herhangi Bir Konuma Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri Arasında Geçiş Yap /11 Dönüştürme Aracı...

En İyi Ofis Verimlilik Araçları
Kutools for Word - Word için 100+ Araç
- 🤖 Kutools AI Özellikleri: Yapay Zeka Asistanı / Gerçek Zamanlı Asistan / Süper Parlat / Süper Çeviri / AI Redaksiyon / Yapay Zeka Düzeltme
- 📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Toplu PDF’ye Dönüştür
- ✏ İçerik Düzenleme: Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır
- 🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır
- ➕ Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / QR Kodları Oluştur