Hoe verander ik het lettertype en de lettergrootte in alle tekstvakken in een Word-document?
In dit artikel wordt gesproken over het wijzigen van het lettertype en de lettergrootte in tekstvakken in het huidige document of in documenten in een opgegeven map. Probeer de VBA-methoden in het artikel.
Wijzig het lettertype en de tekengrootte in tekstvakken in het huidige document
Wijzig het lettertype en de tekengrootte in tekstvakken van alle documenten in een map
Wijzig het lettertype en de tekengrootte in tekstvakken in het huidige document
Voor de tekstvakken wijzigt u het lettertype en de lettergrootte in het huidige document, pas de onderstaande VBA-code toe om het probleem op te lossen.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen kopieer vervolgens de volgende code naar het modulevenster.
VBA-code: wijzig het lettertype en de tekengrootte in alle tekstvakken in het huidige document
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 SubNote: In de code, "Arial"En"20”Is in mijn geval het opgegeven lettertype en de lettergrootte. U kunt ze wijzigen op basis van uw eigen behoeften.
3. druk de F5 sleutel om de code uit te voeren. Vervolgens worden het lettertype en de lettergrootte van alle teksten in de tekstvakken gewijzigd in het opgegeven lettertype en de lettergrootte. Zie screenshot:
Wijzig het lettertype en de tekengrootte in alle tekstvakken van alle documenten in een map
Om het lettertype en de lettergrootte van tekstvakken in bulk in meerdere Word-documenten te wijzigen, moet u de onderstaande VBA-code toepassen.
1. Verzamel alle doeldocumenten die tekstvakken bevatten. U wijzigt het lettertype en de tekengrootte onder dezelfde map.
2. Druk in een Word-document dat wordt geopend op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
3. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen kopieer vervolgens de volgende code naar het modulevenster.
VBA-code: wijzig het lettertype en de lettergrootte in tekstvakken van meerdere documenten
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 Sub4. druk de F5 sleutel om de code uit te voeren. In de opening Blader Selecteer de map (bevat documenten waarvan u het lettertype en de lettergrootte in de tekstvakken wijzigt) en klik op het OK knop.
Vervolgens worden het lettertype en de lettergrootte van alle tekstvakken van documenten in de geselecteerde map gewijzigd in het opgegeven lettertype en lettergrootte.
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-functies: Inhoud genereren / Herschrijf tekst / Vraag en antwoord documenteren / Krijg snelle antwoorden / Documenten vertalen / Pools document (formaat behouden)...
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF...
✏ Inhoud bewerken: Batch zoeken en vervangen in meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar de verwijderen groep...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Meerdere afbeeldingen / Ontdek meer in de Invoegen groep...
???? Precisieselecties: Vaststellen Specifieke pagina's / Tafels / Vormen / Kopparagrafen / Verbeter de navigatie met meer kies functionaliteiten...
⭐ Sterverbeteringen: Navigeer naar elke locatie / Automatisch herhaalde tekst invoegen / Schakelen tussen documentvensters / 11 Camper ombouw Tools...
Beste Office-productiviteitstools
Kutools for Word - 100+ hulpmiddelen voor Word
- 🤖 Kutools AI-functies: Genereer een , Herschrijven, Samenvatten, Vertalen Documenten / Krijg snelle antwoorden / Pools document (formaat behouden)
- 📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Batchconversie naar PDF
- ✏ Inhoud bewerken: Batch zoeken en vervangen / Formaat van alle afbeeldingen wijzigen
- 🧹 Moeiteloos schoon: Verwijder extra spaties / Verwijder sectie-onderbrekingen
- ➕ Creatieve invoegingen: Voeg scheidingstekens voor duizendtallen in / Selectievakjes invoegen / Maak QR-codes