3 Möglichkeiten zur Stapeländerung des Textformats in allen Textfeldern im Word-Dokument

In diesem Artikel unten möchten wir Ihnen drei Möglichkeiten zeigen, wie Sie das Textformat in allen Textfeldern in Ihrem Word-Dokument stapelweise ändern können.

Textfelder werden häufig in unseren Dokumenten angezeigt. Beim Formatieren von Dokumenttexten können wir diese in Textfeldern nicht vergessen. Textfelder, die in einem Dokument verstreut sind, können es jedoch schwierig machen, alle darin enthaltenen Texte ein für alle Mal auszuwählen. Aus Formatierungsgründen ist es daher dringend erforderlich, einen Trick für die Stapelverarbeitung zu erlernen.

Methode 1: Verwenden Sie die Funktion "Erweiterte Suche"

1. Klicken Sie zunächst auf die Registerkarte "Startseite" und dann auf die Pfeilschaltfläche hinter dem Befehl "Suchen" in der Gruppe "Bearbeiten".
2. Wählen Sie als Nächstes in der Dropdown-Liste "Erweiterte Suche", um das Dialogfeld "Suchen und Ersetzen" zu öffnen.
3. Setzen Sie den Cursor auf das Textfeld "Find what" und geben Sie "^?" Dort.
4. Klicken Sie dann auf die Schaltfläche "Suchen in" und wählen Sie "Textfelder im Hauptdokument".
5. Jetzt können Sie sehen, dass alle Texte in Textfeldern ausgewählt sind. Falls Sie die Zeichenfolge vergessen, die in das Feld "Suchen nach" eingefügt werden soll, können Sie auf die Schaltfläche "Mehr" klicken, um weitere Optionen im Feld zu öffnen, und dann auf "Spezial" klicken. Als nächstes wählen Sie "Beliebiges Zeichen".
6. Wenn alle Texte ausgewählt sind, formatieren Sie sie einfach nach Bedarf.

Methode 2: Stapeländerung des Textformats in allen Textfeldern in einem Dokument

1. Drücken Sie zunächst „Alt+F11“ in Word, um den VBA-Editor zu öffnen.
2. Klicken Sie anschließend auf "Normal".
3. Klicken Sie dann auf die Registerkarte "Einfügen" und wählen Sie "Modul".
4. Doppelklicken Sie auf das neue Modul und fügen Sie dort das folgende Makro ein:

Sub FormatTextsInTextBoxes()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      If objShape.Type = msoTextBox Then
        objShape.TextFrame.TextRange.Font.Name = "Arial"
        objShape.TextFrame.TextRange.Font.Size = "16"
      End If
    Next
  End With
End Sub

5. Klicken Sie abschließend auf "Ausführen".

Dieses Makro setzt alle Textfeldtexte in der Schriftart „Arial“ auf 16 pt. Sie können diese Einstellung nach Bedarf ändern.

Methode 3: Stapeländerung des Textformats in allen Textfeldern in mehreren Dokumenten

Jetzt, da wir über die Stapelverarbeitung sprechen, können wir die Notwendigkeit, dies unter mehreren Dateien zu tun, nicht beseitigen.

1. Ordnen Sie zunächst alle Zieldokumente im selben Verzeichnis an.
2. Installieren und führen Sie das Makro wie in Methode 2 aus. Ersetzen Sie diesmal diese Codes durch die folgenden:

Sub FormatTextsInTextBoxesInMultiDoc()
  Dim strFile As String
  Dim strFolder As String
  Dim objDoc As Document
 
  '  Initialization
  strFolder = InputBox("Enter folder path here: ")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
 
    With objDoc
      For Each objShape In .Shapes
        If objShape.Type = msoTextBox Then
          objShape.TextFrame.TextRange.Font.Name = "Arial"
          objShape.TextFrame.TextRange.Font.Size = "16"
        End If
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

3. Während Sie das Makro ausführen, wird ein Eingabefeld angezeigt, z. B. unten:
4. Geben Sie die Ordneradresse in das Textfeld ein und klicken Sie auf "OK". Vergessen Sie nicht, am Ende Ihrer Pfadzeichenfolge ein "\" einzufügen. Warten Sie dann einfach, bis Word seine Arbeit erledigt hat.

Machen Sie vollständige Vorbereitungen, solange Sie können

Wir verstehen, dass es schwierig ist, daran zu denken, dass Ihre Datei beschädigt wird. Wir können jedoch niemals diese Möglichkeit übersehen, die, um ehrlich zu sein, relativ hoch ist. Wie auch immer, es ist weniger mühsam, vorbeugende Maßnahmen zu ergreifen, als nach einem zu suchen doc beheben Werkzeug.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Beheben Sie Excel und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX