Note: The other languages of the website are Google-translated. Back to English

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

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

Hinweis: 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.


Empfohlene Word-Produktivitätswerkzeuge

 

Kutools For Word - Mehr als 100 erweiterte Funktionen für Word, sparen Sie 50 % Zeit

  • Komplizierte und wiederholte Vorgänge können in Sekunden einmalig verarbeitet werden.
  • Fügen Sie mehrere Bilder über Ordner hinweg gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zu einer gewünschten Reihenfolge zusammen.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, eine Sammlung von Tools für allgemeine Konvertierungen und Auswahl usw.
Kommentare (1)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies ist ein großartiger Beitrag. Wirklich sehr informative und kreative Inhalte. Dieses Konzept ist eine gute Möglichkeit, das Wissen zu erweitern. Es gefällt mir und hilft mir sehr gut, mich weiterzuentwickeln. Vielen Dank für diese kurze Erklärung und die sehr schönen Informationen. Nun, ich habe ein gutes Wissen.

Java-Training in Chennai
Java-Training in Coimbatore
Java-Training in Bangalore
Es sind noch keine Kommentare vorhanden

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL