Word belgesindeki tüm metin kutularındaki yazı tipi ve yazı tipi boyutu nasıl değiştirilir?
Bu makale, geçerli belgedeki metin kutularındaki yazı tipi ve yazı tipi boyutunu veya belirli bir klasördeki belgelerin değiştirilmesinden bahsediyor. Lütfen makaledeki VBA yöntemini deneyin.
Geçerli belgedeki metin kutularındaki yazı tipini ve yazı tipi boyutunu değiştirin
Bir klasördeki tüm belgelerin metin kutularındaki yazı tipini ve yazı tipi boyutunu değiştirin
Geçerli belgedeki metin kutularındaki yazı tipini ve yazı tipi boyutunu değiştirin
Metin kutuları için mevcut belgedeki yazı tipini ve yazı tipi boyutunu değiştireceksiniz, lütfen sorunu çözmek için aşağıdaki VBA kodunu uygulayın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modülve ardından aşağıdaki kodu Modül penceresine kopyalayın.
VBA kodu: Geçerli belgedeki tüm metin kutularındaki yazı tipini ve yazı tipi boyutunu değiştirin
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ı tipi boyutudur. Bunları kendi ihtiyaçlarınıza göre değiştirebilirsiniz.
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Daha sonra metin kutularındaki tüm metinlerin yazı tipi ve yazı tipi boyutu, belirtilen yazı tipi ve yazı tipi boyutuna göre değiştirilir. Ekran görüntüsüne bakın:
Bir klasördeki tüm belgelerin tüm metin kutularındaki yazı tipini ve yazı tipi boyutunu değiştirin
Birden çok Word belgesinde metin kutularının yazı tipini ve yazı tipi boyutunu toplu olarak değiştirmek için aşağıdaki VBA kodunu uygulamanız gerekir.
1. Yazı tipi ve yazı tipi boyutunu değiştireceğiniz metin kutuları içeren tüm hedef belgeleri lütfen aynı klasör altında toplayın.
2. Açılan bir Word belgesinde, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
3. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modülve ardından aşağıdaki kodu Modül penceresine kopyalayın.
VBA kodu: Birden çok belgenin metin kutularındaki yazı tipini ve yazı tipi boyutunu değiştirin
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. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Açılışta Araştır penceresinde, klasörü seçin (metin kutularında yazı tipini ve yazı tipi boyutunu değiştireceğiniz belgeleri içerir) ve OK düğmesine basın.
Ardından, seçilen klasördeki tüm metin kutularının yazı tipi ve yazı tipi boyutu, belirtilen yazı tipi ve yazı tipi boyutuna değiştirilir.
En İyi Ofis Üretkenlik Araçları
Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!
Aşağıda vurgulanan özellikleri inceleyin veya tam gücünü keşfetmek için burayı tıklayın Kutools for Word.
📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Formatlarda Dışa Aktarma (PDF/TXT/DOC/XLSX) / 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ş Ekstra Alanlar / Bölüm Sonları / Tüm Başlıklar / Metin kutuları / Köprüler / Daha fazla kaldırma aracı için Kaldırma Grubumuza gidin
➕ 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 / Ekleme Grubumuzda daha fazlasını keşfedin
🔍 Hassas Seçimler: Belirli sayfaları belirleyin / tablolar / şekiller / başlık paragrafları / Select Grubumuzu kullanarak kolaylıkla gezinin
⭐ 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ı ...
Kutools ile Word görevlerinizi dönüştürün. 👉 30 günlük deneme sürümüyle hemen indirin 🚀.
