Zikica hat ein Dokument, das einige Textauswahlen enthält, die rot formatiert sind. Er möchte eine Möglichkeit haben, alle Instanzen des roten Textes auszuwählen und diesen Text in ein neues Dokument zu kopieren. Er fragt sich, ob dies am besten mit einem Makro gemacht werden kann oder ob es einen anderen Weg gibt, die Aufgabe zu erfüllen.

Bevor Sie ein Makro verwenden, um die Aufgabe auszuführen, schauen wir uns einige Möglichkeiten an, wie Sie dies ohne Verwendung eines Makros tun können. Die erste besteht darin, die Such- und Ersetzungsfunktionen von Word mithilfe der folgenden Schritte zu verwenden:

  1. Öffnen Sie ein neues Dokument. (Dies ist das Dokument, in das Sie Ihren roten Text kopieren.)

  2. Wechseln Sie zurück zu Ihrem Originaldokument.

  3. Drücken Sie Strg + H. Word zeigt die Registerkarte Ersetzen des Dialogfelds Suchen und Ersetzen an.

  4. Klicken Sie auf die Registerkarte Suchen.

  5. Klicken Sie auf die Schaltfläche Mehr, falls verfügbar. Das Dialogfeld wird erweitert.

(Siehe Abbildung 1.)

  1. Wenn die Schaltfläche Keine Formatierung verfügbar ist, klicken Sie darauf. Dadurch werden alle Formatierungen entfernt, nach denen Sie möglicherweise zuvor gesucht haben.

  2. Stellen Sie sicher, dass das Feld Suchen leer ist.

  3. Klicken Sie auf die Schaltfläche Format und dann auf Schriftart. Word zeigt das Dialogfeld Schriftart suchen an. (Siehe Abbildung 2.)

  4. Klicken Sie auf die Dropdown-Liste Schriftfarbe und wählen Sie den Rotton aus, den Sie in Ihrem Dokument verwendet haben.

  5. Klicken Sie auf OK, um das Dialogfeld Schriftart suchen zu schließen. Word zeigt die Farbinformationen direkt unter dem Feld Suchen an.

  6. Klicken Sie auf die Dropdown-Liste Suchen in und wählen Sie Hauptdokument. Word wählt alle Instanzen des roten Textes im Dokument aus und zeigt im Dialogfeld an, wie viele Instanzen gefunden wurden.

  7. Klicken Sie auf Schließen, um das Dialogfeld Suchen und Ersetzen zu schließen. Alle Instanzen von rotem Text sollten weiterhin ausgewählt sein.

  8. Drücken Sie Strg + C. Dadurch wird der gesamte Text in die Zwischenablage kopiert.

  9. Wechseln Sie zum neuen Dokument.

  10. Drücken Sie Strg + V. Word fügt den gesamten roten Text in das neue Dokument ein.

Sie können Suchen und Ersetzen auch auf andere Weise verwenden, um zu einer ähnlichen Lösung zu gelangen. Bei diesem Ansatz erstellen Sie zunächst eine Kopie des Dokuments und arbeiten dann mit dieser Kopie:

  1. Drücken Sie Strg + H. Word zeigt die Registerkarte Ersetzen des Dialogfelds Suchen und Ersetzen an.

  2. Klicken Sie auf die Schaltfläche Mehr, falls verfügbar. Das Dialogfeld wird erweitert.

(Siehe Abbildung 3.)

  1. Stellen Sie sicher, dass das Feld Suchen leer ist und sich die Einfügemarke in diesem Feld befindet.

  2. Klicken Sie auf die Schaltfläche Format und dann auf Schriftart. Word zeigt das Dialogfeld Schriftart suchen an.

  3. Klicken Sie auf die Dropdown-Liste Schriftfarbe und wählen Sie Automatisch.

  4. Klicken Sie auf OK, um das Dialogfeld Schriftart suchen zu schließen. Word zeigt die Farbinformationen direkt unter dem Feld Suchen an.

  5. Stellen Sie sicher, dass das Feld Ersetzen durch leer ist.

  6. Klicken Sie auf Alle ersetzen. Word zeigt ein Dialogfeld an, in dem Sie darüber informiert werden, wie viele Ersetzungen vorgenommen wurden.

  7. Klicken Sie auf OK, um das Informationsdialogfeld zu schließen.

  8. Klicken Sie auf Schließen, um das Dialogfeld Suchen und Ersetzen zu schließen.

Bei diesem Ansatz wird der gesamte nicht rote Text im Dokument entfernt, wobei nur der rote Text übrig bleibt. (Dies setzt voraus, dass Sie nur normalen Text und roten Text im Dokument haben. Wenn Sie andere Farben haben möchten, müssen Sie die Schritte wiederholen und eine andere Farbe angeben, die in Schritt 5 entfernt werden soll.) Der einzige Nachteil hiervon Der Ansatz besteht darin, dass ALLE nicht roten Texte entfernt werden, die auch Markierungen am Ende des Absatzes enthalten können, sodass Ihr roter Text möglicherweise alle zusammen in einem einzigen Absatz ausgeführt wird.

Eine andere Möglichkeit, den roten Text in ein anderes Dokument zu kopieren, besteht darin, Suchen und Ersetzen zu umgehen und ein anderes Werkzeug zu verwenden. Befolgen Sie diese Schritte:

  1. Öffnen Sie ein neues Dokument. (Dies ist das Dokument, in das Sie Ihren roten Text kopieren.)

  2. Wechseln Sie zurück zu Ihrem Originaldokument.

  3. Positionieren Sie die Einfügemarke irgendwo in Ihrem roten Text.

  4. Zeigen Sie die Registerkarte Home des Menübands an.

  5. Klicken Sie in der Gruppe Bearbeiten auf das Auswahlwerkzeug und wählen Sie dann Alle Texte mit ähnlicher Formatierung auswählen. Word wählt den gesamten ähnlich formatierten roten Text in Ihrem Dokument aus.

  6. Drücken Sie Strg + C. Dadurch wird der gesamte Text in die Zwischenablage kopiert.

  7. Wechseln Sie zum neuen Dokument.

  8. Drücken Sie Strg + V. Word fügt den gesamten roten Text in das neue Dokument ein.

Wenn Sie diese Art der Bearbeitung häufig durchführen müssen, möchten Sie möglicherweise ein Makro erstellen, das die Aufgabe für Sie erledigt. Es gibt mehrere Möglichkeiten, dies zu tun, aber die folgenden werden ausreichen, um das Konzept zu zeigen. Es erstellt ein Variablenarray für den gesamten roten Text im Dokument, erstellt ein neues Dokument und fügt dann den Text des Variablenarrays in das neue Dokument ein.

Sub CopyRedTextToNewDoc()

Dim i As Integer     Dim a() As Variant     Dim sFound As String

Selection.Find.ClearFormatting     Selection.Find.Font.Color = wdColorRed     With Selection.Find         .Text = ""

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = True         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute

Do While Selection.Find.Found         ReDim Preserve a(i)

sFound = Selection

If Asc(Right(sFound, 1)) <> 13 Then             sFound = sFound & vbCrLf         End If

a(i) = sFound         i = i + 1         Selection.Find.Execute    Loop

Application.Documents.Add     For i = LBound(a) To UBound(a)

ActiveDocument.Range.InsertAfter a(i)

Next

' If you don't want the text in the new document to be red,     ' remove the following three lines or comment them out     Selection.WholeStory     Selection.Font.Color = wdColorRed     Selection.Collapse End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (379) gilt für Microsoft Word 2007, 2010, 2013 und 2016.