Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

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

Author Siluvia Last modified

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.

Die besten Produktivitätstools für das Büro

Kutools for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!

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

📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...

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

🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...

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

🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...

⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Jetzt Kutools for Word herunterladen! 🚀
 

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!

Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint

📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern

Die besten Produktivitätstools für das Büro

Kutools for Word – 100+ Tools für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools