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