Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe kan ik het lettertype en de lettergrootte wijzigen in alle tekstvakken in een Word-document?

Author Siluvia Last modified

Dit artikel gaat over het wijzigen van het lettertype en de lettergrootte in tekstvakken in het huidige document of documenten in een gespecificeerde map. Probeer de VBA-methoden in het artikel.

Wijzig het lettertype en de lettergrootte in tekstvakken in het huidige document

Wijzig het lettertype en de lettergrootte in tekstvakken van alle documenten in een map

Wijzig het lettertype en de lettergrootte in tekstvakken in het huidige document

Voor de tekstvakken waarin u het lettertype en de lettergrootte in het huidige document wilt wijzigen, past u de volgende VBA-code toe om het probleem op te lossen.

1. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module, en kopieer vervolgens de volgende code naar het Module-venster.

VBA-code: Wijzig het lettertype en de lettergrootte 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 Sub

Opmerking: In de code zijn “Arial” en “20” het gespecificeerde lettertype en de lettergrootte in mijn geval. U kunt ze aanpassen op basis van uw eigen behoeften.

3. Druk op de F5-toets om de code uit te voeren. Vervolgens worden alle teksten in de tekstvakken gewijzigd naar het gespecificeerde lettertype en de lettergrootte. Zie screenshot:

Font and font size in the text boxes are changed to the specified ones

Wijzig het lettertype en de lettergrootte in alle tekstvakken van alle documenten in een map

Om bulksgewijs de lettertypen en lettergroottes in tekstvakken in meerdere Word-documenten te wijzigen, moet u de volgende VBA-code gebruiken.

1. Verzamel alle doeldocumenten die de tekstvakken bevatten waarvan u het lettertype en de lettergrootte wilt wijzigen in dezelfde map.

2. Druk in een open Word-document op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module, en kopieer vervolgens de volgende code naar het Module-venster.

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 Sub

4. Druk op de F5-toets om de code uit te voeren. Selecteer in het venster Bladeren dat wordt geopend de map (bevat de documenten waarin u het lettertype en de lettergrootte in de tekstvakken wilt wijzigen) en klik op de knop OK.

Browse window

Vervolgens worden het lettertype en de lettergrootte van alle tekstvakken in de geselecteerde map gewijzigd naar het gespecificeerde lettertype en de lettergrootte.

Beste Office-productiviteitstools

Kutools for Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools