2 praktische Methoden zum Extrahieren hervorgehobener Texte aus Ihrem Word-Dokument

In diesem Artikel möchten wir Ihnen zwei praktische Methoden zeigen, um hervorgehobene Texte aus Ihrem Word-Dokument zu extrahieren.

Von Zeit zu Zeit werden wir wahrscheinlich Texte mit Farben hervorheben, wenn wir durch ein Dokument navigieren. Alle diese Texte mögen sich über den gesamten Artikel verteilen, aber sie verdienen definitiv unsere Aufmerksamkeit. Daher können wir sie einfach exportieren und in einem anderen Dokument anordnen, um sie beim nächsten Mal schnell überprüfen zu können, sodass wir nicht immer wieder mit dem Mausrad scrollen müssen.

Methode 1: Verwenden Sie die Funktion "Erweiterte Suche"

1. Klicken Sie zunächst auf die Registerkarte "Startseite" und dann auf die verkehrte Schaltfläche hinter "Suchen".
2. Wählen Sie anschließend "Erweiterte Suche", um das Dialogfeld "Suchen und Ersetzen" zu öffnen.
3. Setzen Sie den Cursor in das Textfeld "Suchen nach" und klicken Sie auf "Mehr".
4. Klicken Sie dann auf die Schaltfläche "Formatieren" und wählen Sie "Hervorheben".
5. Klicken Sie anschließend auf die Registerkarte "Suchen in" und wählen Sie "Hauptdokument".

Jetzt sehen Sie, dass alle hervorgehobenen Texte jetzt wie unten ausgewählt sind:

Sie können sie dann kopieren und in ein neues Dokument einfügen.

Methode 2: Verwenden Sie Word VBA

Wie in unserem Beispiel gezeigt, ist es nicht ungewöhnlich, dass mehrere Texte in unterschiedlichen Hervorhebungsfarben vorliegen. Lassen Sie uns nun darüber sprechen, wie Sie alle Inhalte zuerst in derselben Hervorhebungsfarbe erhalten.

1. In erster LinieostDrücken Sie „Alt + F11“, um den VBA-Editor zu öffnen.
2. Klicken Sie dann auf "Normal".
3. Und klicken Sie auf "Einfügen".
4. Als nächstes wählen Sie "Modul".
5. Doppelklicken Sie auf das neue Modul, um den Codierungsbereich zu öffnen.
6. Fügen Sie nun dort folgende Codes ein:

Sub ExtractHighlightedTextsInSameColor () Dim objDoc As Document, objDocAdd As Document Dim objRange As Range Set objDoc = ActiveDocument Set objDocAdd = Documents.Add objDoc.Activate With Selection .HomeKey Unit: = wdStory With Selection.Find .High Selection.Range.HighlightColorIndex = wdYellow Dann setzen Sie objRange = Selection.Range objDocAdd.Range.InsertAfter objRange & vbCr Selection.Collapse wdCollapseEnd End If Loop End With End With End Sub

7. Klicken Sie dann auf die Schaltfläche "Ausführen".

Sie haben ein neues Dokument mit allen hervorgehobenen Texten.

Dann gibt es ein weiteres Makro, mit dem Sie alle hervorgehobenen Texte derselben Farbe aus mehreren Dokumenten erfassen können. Was Sie tun müssen, ist, sie alle in einem Ordner zu organisieren und die obigen Schritte auszuführen, aber das Makro durch dieses zu ersetzen:

Sub ExtractHighlightedTextsInSameColorFromMultiDoc () Dim objDoc As Document, objDocAdd As Document Dim strFile As String, strFolder As String Dim objRange As Range 'Initialisierung strFolder = "C: \ Users \ Public \ Documents \ New folder \" strFile = Dir (strFolder & * .docx ", vbNormal) Setze objDocAdd = Documents.Add 'Verarbeite jede Datei im Dateiordner. While strFile <> "" Set objDoc = Documents.Open (FileName: = strFolder & strFile) With Selection .HomeKey Unit: = wdStory With Selection.Find .Highlight = True Do While .Execute If Selection.Range.HighlightColorIndex = wdYellow Then Set objRange = Selection.Range objDocAdd.Range.InsertAfter objRange & vbCr Selection.Collapse wdCollapseEnd End If Loop End With End With objDoc.Close strFile = Dir () Wend End Sub

Anmerkungen:

1. Wie Sie sehen, extrahieren die beiden Makros zunächst alle Texte in Gelb. Sie können den Code sicherlich ersetzen “wdGelbMit anderen Farben. Hier ist der Link, den Sie besuchen können: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172829(v=office.11)
2. Zweitens, wenn Sie alle hervorgehobenen Texte in verschiedenen Farben sammeln möchten, müssen Sie nur das “Wenn Selection.Range.HighlightColorIndex = wdYellow Dann" und "End If" Linien.
3. Drittens in der Codezeile “strFolder = "C: \ Benutzer \ Öffentlich \ Dokumente \ Neuer Ordner \"Ersetzen Sie im zweiten Makro den Pfad der Pfadzeichenfolge durch den des Ordners, den Sie haben. Und vergessen Sie nicht hinzuzufügen “\" Am Ende.

Backup ist nie zu spät

Mit einem Wort, wir haben so viel Wert auf Backup gelegt, dass most von dir sollte wissen, wie wichtig es jetzt ist. Daher können wir immer noch nicht regelmäßig Backups erstellen. Und die Wahrheit ist, ohne Backup, die einzige Option, die noch einmal übrig ist doc Korruption passiert, ist ein Datenabruf-Tool zu bekommen.

Einführung des Autors:

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