Wie ändert man Schriftart und Schriftgröße in allen Textfeldern eines Word-Dokuments?

Dieser Artikel zeigt Ihnen, wie Sie Schriftart und Schriftgröße in Textfeldern entweder im aktuellen Dokument oder in allen Dokumenten eines bestimmten Ordners ändern können. Probieren Sie dazu die im Artikel beschriebenen VBA-Methoden aus.

Schriftart und Schriftgröße in Textfeld in Aktuelles Dokument ändern

Schriftart und Schriftgröße in Textfeld aller Dokumente eines Ordners ändern

---

Schriftart und Schriftgröße in Textfeld in Aktuelles Dokument ändern

Für das Textfeld, dessen Schriftart und Schriftgröße Sie im aktuellen Dokument ändern möchten, wenden Sie bitte den folgenden VBA-Code an, um das Problem zu lösen.

1. Drücken Sie die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul, und fügen Sie dann den folgenden Code in das Modulfenster ein.

VBA-Code: Schriftart und Schriftgröße in allen Textfeld in Aktuelles Dokument ändern

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

Hinweis: Im Code sind „Arial“ und „20“ in meinem Fall die festgelegte Schriftart bzw. Schriftgröße. Passen Sie diese ganz einfach an Ihre Anforderungen an.

3. Drücken Sie die F5-Taste, um den Code auszuführen. Danach werden Schriftart und Schriftgröße aller Texte im Textfeld auf die festgelegten Werte geändert. Siehe Screenshot:

---

Schriftart und Schriftgröße in allen Textfeld aller Dokumente eines Ordners ändern

Um die Schriftart und Schriftgröße von Textfeldern in mehreren Word-Dokumenten gleichzeitig zu ändern, wenden Sie den folgenden VBA-Code an.

1. Sammeln Sie zunächst alle Ziel-Dokumente, die Textfelder mit der gewünschten Schriftart und -größe enthalten, in einem gemeinsamen Ordner.

2. Drücken Sie in einem geöffneten Word-Dokument die Tastenkombination Alt+F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

3. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul, und fügen Sie dann den folgenden Code in das Modulfenster ein.

VBA-Code: Schriftart und Schriftgröße in Textfeld mehrerer Dokumente ändern

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. Drücken Sie die F5-Taste, um den Code auszuführen. Wählen Sie im sich öffnenden Durchsuchen-Fenster den Ordner aus, der die Dokumente enthält, in denen Sie Schriftart und Schriftgröße in den Textfeldern ändern möchten, und klicken Sie auf die OK-Schaltfläche.

Anschließend werden Schriftart und Schriftgröße aller Textfelder in den ausgewählten Ordnerdokumenten auf die festgelegten Werte angepasst.