Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

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 ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    pavithradass123 · 2 years ago
    This is an awesome post.Really very informative and creative contents. These concept is a good way to enhance the knowledge.I like it and help me to development very well.Thank you for this brief explanation and very nice information.Well, got a good knowledge.

    Java Training in Chennai
    Java Training in Coimbatore
    Java Training in Bangalore