Direkt zum Inhalt

Wie ändere ich die Schriftart und Schriftgröße in allen Textfeldern im Word-Dokument?

Autor: Siluvia Letzte Änderung: 2018-12-12

In diesem Artikel wird das Ändern der Schriftart und Schriftgröße in Textfeldern im aktuellen Dokument oder in Dokumenten in einem bestimmten Ordner beschrieben. Bitte versuchen Sie die VBA-Methode im Artikel.

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

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


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

Für die Textfelder ändern Sie die Schriftart und Schriftgröße im aktuellen Dokument. Wenden Sie den folgenden VBA-Code an, um das Problem zu lösen.

1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modulund kopieren Sie dann den folgenden Code in das Modulfenster.

VBA-Code: Ändern Sie die Schriftart und Schriftgröße in allen Textfeldern des aktuellen Dokuments

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

Note: Im Code “Arial" und "20”Ist in meinem Fall die angegebene Schriftart und Schriftgröße. Sie können sie nach Ihren eigenen Bedürfnissen ändern.

3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Anschließend werden die Schriftart und Schriftgröße aller Texte in den Textfeldern auf die angegebene Schriftart und Schriftgröße geändert. Siehe Screenshot:


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

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

1. Bitte sammeln Sie alle Zieldokumente, die Textfelder enthalten. Sie ändern die Schriftart und Schriftgröße im selben Ordner.

2. Drücken Sie in einem sich öffnenden Word-Dokument die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modulund kopieren Sie dann den folgenden Code in das Modulfenster.

VBA-Code: Ändern Sie die 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 Schlüssel zum Ausführen des Codes. In der Eröffnung Entdecken Wählen Sie im Fenster den Ordner aus (enthält Dokumente, deren Schriftart und Schriftgröße Sie in den Textfeldern ändern möchten) und klicken Sie auf OK .

Anschließend werden die Schriftart und Schriftgröße aller Textfelder der Dokumente im ausgewählten Ordner auf die angegebene Schriftart und Schriftgröße geändert.

Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erhalten Sie schnelle Antworten, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie unter Gruppe entfernen...

Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau Spezifische Seiten  /  Tische  /  Formen  /  Überschriftenabsätze  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

Star-Verbesserungen: Navigieren Sie zu einem beliebigen Ort  /  Sich wiederholenden Text automatisch einfügen  /  Zwischen Dokumentfenstern wechseln  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word noch heute herunter und erleben Sie den Unterschied! 🚀
 
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is an awesome post.Really very informative and creative contents. These concept is a good way to enhance the knowledge.I like it and help me to development very well.Thank you for this brief explanation and very nice information.Well, got a good knowledge.

Java Training in Chennai
Java Training in Coimbatore
Java Training in Bangalore
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations