Çerezler bize hizmetleri sunmak yardımcı olur. Hizmetlerimizi kullanarak, çerez kullanmamızı kabul etmiş olursunuz.
İpucu: Diğer diller Google Çeviri'dir. Ziyaret edebilirsiniz English Bu linkin sürümü.
Oturum aç
x
or
x
x
Şimdi Kayıt Olun
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ı tipini ve yazı tipi boyutunu veya belirtilen bir klasördeki belgeleri değiştirmekten bahsediyor. Lütfen makaledeki VBA yöntemini deneyin.

Geçerli belgedeki metin kutularındaki yazı tipi ve yazı tipi boyutunu değiştirme

Klasördeki tüm belgelerin metin kutularındaki yazı tipi ve yazı tipi boyutunu değiştirme


Geçerli belgedeki metin kutularındaki yazı tipi ve yazı tipi boyutunu değiştirme

Metin kutuları için geçerli belgede yazı tipi 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. diğer + 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 sonra aşağıdaki kodu Modül penceresine kopyalayın.

VBA kodu: Geçerli belgedeki tüm metin kutularındaki yazı tipi 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

notlar: Kodda "Arial"Ve"20”Benim durumumda belirtilen yazı tipi ve yazı tipi boyutu. Bunları kendi ihtiyaçlarınıza göre değiştirebilirsiniz.

3. Tuşuna basın. F5 kodu çalıştırmak için Ardından tüm metinlerin yazı tipi ve yazı tipi boyutu, yazı tipi ve yazı tipi boyutlarına göre değişir. Ekran görüntüsüne bakın:


Bir klasördeki tüm belgelerin tüm metin kutularındaki yazı tipi ve yazı tipi boyutunu değiştirme

Birden çok Word belgesindeki metin kutularının yazı tipi ve yazı tipi boyutunu değiştirmek için aşağıdaki VBA kodunu uygulamanız gerekir.

1. Lütfen aynı klasör altındaki yazı tipi ve yazı tipi boyutunu değiştireceğiniz metin kutularını içeren tüm hedef belgeleri toplayın.

2. Bir açılış Word belgesinde diğer + 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 sonra aşağıdaki kodu Modül penceresine kopyalayın.

VBA kodu: Birden çok belgenin metin kutularındaki yazı tipi 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 tuşuna basın. Açılışta Araştır penceresinde klasörü seçin (metin kutularına yazı tipini ve yazı tipi boyutunu değiştireceğiniz belgeleri içerir) OK düğmesine basın.

Ardından, tüm metin kutularının seçili klasördeki yazı tipi ve yazı tipi boyutu, belirtilen yazı tipi ve yazı tipi boyutu olarak değiştirilir.



Kutools for Word

100, 2003, 2007, 2010, 2013 ve 2016 için 2019 Gelişmiş İşlevlerinden daha fazlası

atış-kutools-700-225-KTE

Diğer Özellikler | Bedava indir | Yüzlerce işlev için yalnızca $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.