Note: The other languages of the website are Google-translated. Back to English

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.


Önerilen Word Üretkenlik Araçları

 

Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın

  • Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
  • Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
  • Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
  • Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
  • Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...
Yorumları sıralama ölçütü
Yorumlar (1)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika bir yazı.Gerçekten çok bilgilendirici ve yaratıcı içerikler. Bu kavramlar bilgiyi geliştirmek için iyi bir yol.Beğendim ve çok iyi gelişmeme yardımcı oldu.Bu kısa açıklama ve çok güzel bilgiler için teşekkür ederim.Pekala, iyi bir bilgi edindim.

Chennai'de Java Eğitimi
Coimbatore'da Java Eğitimi
Bangalore'de Java Eğitimi
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0  Karakterler
Önerilen Konumlar