Hoe wijzigt u het lettertype en de tekstgrootte in alle tekstvakken van een Word-document?

Dit artikel behandelt het aanpassen van het lettertype en de tekstgrootte in een tekstvak binnen het huidige document of in documenten uit een opgegeven map. Probeer de VBA-methoden in dit artikel uit.

Wijzig het lettertype en Tekstgrootte in Tekstvak in Huidig document

Wijzig het lettertype en Tekstgrootte in Tekstvak van alle documenten in een map

---

Wijzig het lettertype en Tekstgrootte in Tekstvak in Huidig document

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

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

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

VBA-code: Wijzig het lettertype en Tekstgrootte in alle Tekstvak in Huidig 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 lettertype en de tekstgrootte die ik heb ingesteld. U kunt deze aanpassen aan uw eigen voorkeuren.

3. Druk op de F5-toets om de code uit te voeren. Vervolgens worden het lettertype en de tekstgrootte van alle teksten in het tekstvak gewijzigd naar het opgegeven lettertype en de opgegeven tekstgrootte. Zie de schermafbeelding:

---

Wijzig het lettertype en Tekstgrootte in alle Tekstvak van alle documenten in een map

Om het lettertype en de tekstgrootte van een tekstvak bulksgewijs aan te passen in meerdere Word-documenten, past u de onderstaande VBA-code toe.

1. Plaats alle doeldocumenten met een Tekstvak waarvan u het lettertype en de tekstgrootte wilt aanpassen, in dezelfde map.

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

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

VBA-code: Wijzig het lettertype en Tekstgrootte in Tekstvak 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 de map met documenten waarin u het lettertype en de tekstgrootte in het tekstvak wilt wijzigen, en klik op de knop OK.

Vervolgens worden het lettertype en de tekstgrootte van alle tekstvakken in de geselecteerde map aangepast naar het opgegeven lettertype en de opgegeven tekstgrootte.