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!

🤖 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ı...

👉 Bu özellikleri denemek ister misiniz? Kutools for Word şunları sunar: 60 günlük ücretsiz deneme, hiçbir sınırlama olmaksızın! ????

Bedava indir     Devamını Oku     Satın Alın