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.
Beste Office-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
Tauchen Sie ein in die hervorgehobenen Funktionen unten oder Klicken Sie hier, um die volle Kraft von zu entdecken Kutools for Word.
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/XLSX) / 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 in unserer Entfernungsgruppe
➕ Kreative Einsätze: Insert Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr in unserer Beilagengruppe
🔍 Präzise Auswahl: Lokalisieren Sie bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Navigieren Sie ganz einfach mit unserer Select Group
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools ...
Verwandeln Sie Ihre Word-Aufgaben mit Kutools. 👉 Jetzt mit 30-Tage-Testversion herunterladen 🚀.
