Zum Hauptinhalt springen

Entdecken Sie noch heute die neue, kostenlose Version von Kutools für Outlook!

Wie ändert man die Schriftart und Schriftgröße in allen Textfeldern in einem Word-Dokument?

Author: Siluvia Last Modified: 2025-05-28

Dieser Artikel behandelt das Ändern der Schriftart und Schriftgröße in Textfeldern im aktuellen Dokument oder in Dokumenten in einem bestimmten Ordner. Bitte probieren Sie die VBA-Methoden im Artikel aus.

Ändern der Schriftart und Schriftgröße in Textfeldern im aktuellen Dokument

Ändern der Schriftart und Schriftgröße in Textfeldern aller Dokumente in einem Ordner

Ändern der Schriftart und Schriftgröße in Textfeldern im aktuellen Dokument

Um die Schriftart und Schriftgröße in den Textfeldern im aktuellen Dokument zu ändern, 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 Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und kopieren Sie dann den folgenden Code in das Modulfenster.

VBA-Code: Ändern der Schriftart und Schriftgröße in allen Textfeldern im aktuellen Dokument

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“ die angegebene Schriftart und Schriftgröße in meinem Fall. Sie können sie je nach Ihren Bedürfnissen ändern.

3. Drücken Sie die Taste F5, um den Code auszuführen. Dann werden alle Texte in den Textfeldern in die angegebene Schriftart und Schriftgröße geändert. Siehe Screenshot:

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

Ändern der Schriftart und Schriftgröße in allen Textfeldern aller Dokumente in einem Ordner

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

1. Sammeln Sie bitte alle Ziel-Dokumente, die die Textfelder enthalten, deren Schriftart und Schriftgröße Sie ändern möchten, in demselben Ordner.

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

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

VBA-Code: Ändern der Schriftart und Schriftgröße in Textfeldern mehrerer Dokumente

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

Browse window

Dann werden die Schriftart und Schriftgröße aller Textfelder in den Dokumenten des ausgewählten Ordners in die angegebene Schriftart und Schriftgröße geändert.

Beste Büroproduktivitätswerkzeuge

Kutools für Word - Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...

🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...

🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...

⭐ Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀
 

Beste Büroproduktivitätswerkzeuge

Kutools für Word - 100+ Werkzeuge für Word

Kostenloser Download Jetzt kaufen Erfahren Sie mehr über Kutools