Word belgesindeki tüm metin kutularında yazı tipini ve yazı boyutunu nasıl değiştirirsiniz?
Bu makale, geçerli belgedeki veya belirtilen bir klasördeki belgelerdeki metin kutularında yazı tipini ve yazı boyutunu değiştirmekten bahsediyor. Lütfen makaledeki VBA yöntemlerini deneyin.
Geçerli belgedeki metin kutularında yazı tipini ve yazı boyutunu değiştirme
Bir klasördeki tüm belgelerdeki metin kutularında yazı tipini ve yazı boyutunu değiştirme
Geçerli belgedeki metin kutularında yazı tipini ve yazı boyutunu değiştirme
Geçerli belgedeki metin kutularında yazı tipini ve yazı boyutunu değiştireceğiniz durumlar için lütfen aşağıdaki VBA kodunu uygulayarak sorunu çözün.
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın ve ardından aşağıdaki kodu Modül penceresine kopyalayın.
VBA Kodu: Geçerli belgedeki tüm metin kutularında yazı tipini ve yazı boyutunu değiştirme
Sub FormatTextsInTextBoxes()
'Updated by ExtendOffice 20181128
Dim I As Long
Dim xShape As Shape
Dim xDoc As Document
Set xDoc = ActiveDocument
On Error Resume Next
For Each xShape In xDoc.Shapes
xShape.Select
If xShape.GroupItems Is Nothing Then
With xShape.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
GoTo LblExit
End If
For I = 1 To xShape.GroupItems.Count
With xShape.GroupItems(I).TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
Next
LblExit:
Next
End Sub
Not: Kodda, “Arial” ve “20”, benim durumumda belirtilen yazı tipi ve yazı boyutudur. Kendi ihtiyaçlarınıza göre bunları değiştirebilirsiniz.
3. Kodu çalıştırmak için F5 tuşuna basın. Daha sonra tüm metin kutularındaki metinlerin yazı tipi ve yazı boyutu, belirtilen yazı tipi ve yazı boyutuna dönüştürülecektir. Ekran görüntüsüne bakın:
Bir klasördeki tüm belgelerdeki tüm metin kutularında yazı tipini ve yazı boyutunu değiştirme
Birden fazla Word belgesinde toplu olarak metin kutularının yazı tipini ve yazı boyutunu değiştirmek için aşağıdaki VBA kodunu uygulamanız gerekir.
1. Yazı tipini ve yazı boyutunu değiştireceğiniz metin kutularını içeren tüm hedef belgeleri aynı klasör altında toplayın.
2. Açık bir Word belgesinde, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
3. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın ve ardından aşağıdaki kodu Modül penceresine kopyalayın.
VBA Kodu: Birden fazla belgedeki metin kutularında yazı tipini ve yazı boyutunu değiştirme
Sub FormatTextsInTextBoxesInMultiDoc()
'Updated by ExtendOffice 20181128
Dim I As Long
Dim xShape As Shape
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xFileStr As String
On Error Resume Next
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show = -1 Then
xFolder = xDlg.SelectedItems(1) + "\"
xFileStr = Dir(xFolder & "*.doc", vbNormal)
While xFileStr <> ""
Documents.Open xFolder & xFileStr
For Each xShape In ActiveDocument.Shapes
xShape.Select
If xShape.GroupItems Is Nothing Then
With xShape.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
GoTo LblExit
End If
For I = 1 To xShape.GroupItems.Count
With xShape.GroupItems(I).TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
Next
LblExit:
Next
ActiveDocument.Save
ActiveDocument.Close
xFileStr = Dir()
Wend
End If
End Sub
4. Kodu çalıştırmak için F5 tuşuna basın. Açılan Gözat penceresinde, yazı tipini ve yazı boyutunu değiştireceğiniz metin kutularını içeren klasörü seçin ve Tamam düğmesine tıklayın.
Daha sonra seçilen klasördeki belgelerdeki tüm metin kutularının yazı tipi ve yazı boyutu, belirtilen yazı tipi ve yazı boyutuna dönüştürülecektir.
En İyi Ofis Verimlilik Araçları
Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile Yükseltin!
🤖 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 Olarak 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ırlarını ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını, Bağlantıları Temizleyin / Daha fazla kaldırma aracı için Kaldır grubunu keşfedin...
➕ Yaratıcı Eklemler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Ekle / Barkod Ekle / Birden Fazla Resim Ekle / Ekle grubunda daha fazlasını keşfedin...
🔍 Hassas Seçimler: Belirli Sayfaları, Tabloları, Şekilleri, Başlık Paragraflarını Nokta Atışıyla Seçin / Daha fazla Seç özelliğiyle gezinmeyi kolaylaştırın...
⭐ Yıldız İyileştirmeler: İstediğiniz Konuma Hızla Gidin / Yinelenen Metni Otomatik Olarak Ekleyin / Belge Pencereleri Arasında Hızla Geçiş Yapın /11 Dönüştürme Aracı...
🌍 40+ Dili Destekler: Kutools'u tercih ettiğiniz dilde kullanabilirsiniz – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil desteği!

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 Olarak 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ı Eklemler: Binlik Ayırıcılar Ekle / Onay Kutuları Ekle / QR Kodları Oluştur
- 🌍 40+ Dili Destekler: Kutools sizin dilinizde –40'tan fazla dil desteği!