Word belgesinde tablo başlıklarını yukarıdan aşağıya veya tersi nasıl taşıyabilirim?
Bir Word belgesinde, her tablonun altına başlık eklenmiş birden çok tablo varsa. Ancak bazen bu başlıkları tablonun altından üstüne taşımak isteyebilirsiniz. Bu işle olabildiğince çabuk nasıl başa çıkabilirsiniz?
VBA kodu ile Word'de tablo başlıklarını aşağıdan yukarıya veya tersi yönde taşıyın
VBA kodu ile Word'de tablo başlıklarını aşağıdan yukarıya veya tersi yönde taşıyın
Tüm tablo başlıklarını aşağıdan tabloların üstüne taşımak için, aşağıdaki VBA kodu size bir iyilik yapar, lütfen şunu yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki makroyu Modül Penceresine yapıştırın.
Bir Word belgesinde tablo başlıklarını aşağıdan yukarıya taşıyın
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. Daha sonra, tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve tüm tablo başlıkları tabloların aşağıdan üstüne taşındı, ekran görüntüsüne bakın:
not: Tablo başlıklarını her tablonun yukarıdan aşağıya taşımak için lütfen aşağıdaki VBA kodunu uygulayın:
Bir Word belgesinde tablo başlıklarını yukarıdan aşağıya taşı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 belgesine aynı anda birden çok tablo, resim veya denklem başlığı ekleyin:
Normalde tablo, resim veya denklem için tablo, resim veya denklem başlığını Word dosyasına tek tek eklemelisiniz. Ama eğer varsa Kelime için Kutols's Birden Çok Altyazı özelliği, tüm tablolar, resimler veya denklemler için tablo, resim veya denklem başlıklarını olabildiğince çabuk ekleyebilirsiniz. Kutools for Word: 100'den fazla kullanışlı Word eklentisi ile 60 günde sınırlama olmaksızın ücretsiz deneyin. Hemen İndir ve ücretsiz deneme için tıklayın! |
En İyi Ofis Üretkenlik Araçları
Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!
🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur / Metni Yeniden Yaz / Belgeleri Özetleyin / Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de
📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / PDF'ye Toplu Dönüştürme / Sayfaları Görüntü Olarak Dışa Aktar / Aynı Anda Birden Çok Dosyayı Yazdırma...
✏ İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Yer Değiştirme / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar / Bölüm Sonları / Tüm Başlıklar / Metin kutuları / Köprüler / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...
➕ Yaratıcı Ekler: Ekle Bin Ayırıcı / Onay Kutuları / Radyo Düğmeleri / QR Code / Barkod / Çapraz Çizgi Tablosu / Denklem Başlığı / Görüntü Başlık / Tablo başlığı / Çoklu Resimler / Daha fazlasını şurada keşfedin: Grup Ekle...
🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar / tablolar / şekiller / başlık paragrafları / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...
⭐ Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin / tekrarlanan metni otomatik olarak ekle / belge pencereleri arasında sorunsuzca geçiş yapın / 11 Dönüşüm Aracı...