Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie können Sie die Schriftart und die Schriftgröße in allen Textfeldern in Word-Dokumenten ändern?

In diesem Artikel wird die Änderung der Schriftart und der Schriftgröße in Textfeldern des aktuellen Dokuments oder von Dokumenten in einem angegebenen Ordner beschrieben. Versuchen Sie es mit der VBA-Methode im Artikel.

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

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


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

Für die Textfelder ändern Sie die Schriftart und die Schriftgröße im aktuellen Dokument. Bitte 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 Einsatz > ModulKopieren Sie dann den folgenden Code in das Modulfenster.

VBA-Code: Ändern Sie die Schrift 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

Text: In dem Code "Arial" und "20”Ist die angegebene Schrift und Schriftgröße in meinem Fall. Sie können sie an Ihre eigenen Bedürfnisse anpassen.

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


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

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

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

2. Drücken Sie in einem öffnenden Word-Dokument die 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 Einsatz > ModulKopieren Sie dann den folgenden Code in das Modulfenster.

VBA-Code: Ändern Sie die Schrift 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 blättern Wählen Sie den Ordner aus (enthält Dokumente, in denen Sie die Schriftart und die Schriftgröße in den Textfeldern ändern), und klicken Sie auf OK klicken.

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



Empfohlene Word-Produktivitätswerkzeuge

Kutools für Word - Mehr als 100 Erweiterte Funktionen Sparen Sie für Microsoft Word 50% Zeit

  • Komplizierte und wiederholte Operationen können in Sekundenschnelle einmalig ausgeführt werden.
  • Fügen Sie mehrere Bilder in verschiedenen Ordnern gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zusammen und kombinieren Sie sie in der gewünschten Reihenfolge.
  • Teilen Sie das aktuelle Dokument gemäß Überschrift 1, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, Sammlung von Tools für die gemeinsame Konvertierung und Auswahl, und so weiter...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.