In diesem Artikel erfahren Sie, wie Sie die Formatierung von eingefügtem Text mit Makro und VBA in Ihrem Wort entfernen.
Es passiert häufig, wenn Sie einen Text online kopieren und feststellen, dass der Text eine umfangreiche Formatierung aufweist. Zum Beispiel gibt es sich wiederholende Wörter, Leerzeilen, Tabulatorzeichen usw. Eine solche Formatierung kann jedoch ziemlich ärgerlich sein, insbesondere in Zeiten, die Sie nicht benötigen. Natürlich würden Sie die Formatierung jeweils manuell entfernen. Was ist jedoch, wenn der Text sehr lang ist? Dann ist das obige Verfahren weniger effizient.
Tatsächlich gibt es eine Möglichkeit, mithilfe von Makros die gesamte Textformatierung ein für alle Mal zu entfernen. Hier ist mehr:
Schritte zum Aufzeichnen eines Makros in Word
- Öffnen Sie zuerst Ihr Wort.
- Stellen Sie zunächst sicher, dass Sie auf der Multifunktionsleiste die Registerkarte "Entwickler" hinzugefügt haben. Ausführliche Anweisungen zum Hinzufügen von "Entwickler" finden Sie im Artikel: So fügen Sie Hintergrundmusik in Ihr Word-Dokument ein
- Sobald die Registerkarte "Entwickler" verfügbar ist, klicken Sie darauf.
- Klicken Sie dann in der Gruppe "Code" auf "Makro aufzeichnen".
- Nun wird ein Dialogfeld "Makro aufzeichnen" angezeigt. Geben Sie zunächst den Makronamen ein, z. B. "copytext".
- Wählen Sie dann im Teil "Makro zuweisen" entweder "Schaltfläche" oder "Tastatur". Hier gehen wir "Button".
- Klicken Sie anschließend auf "OK".
- Und jetzt sehen Sie das Fenster "Word-Optionen". Klicken Sie auf "Multifunktionsleiste anpassen".
- Suchen Sie dann auf der rechten Seite einen Speicherort für das Makro. Hier klicken wir auf "Neue Gruppe", um eine neue für das Makro festzulegen.
- Noe wählt weiterhin "Makros" aus der Dropdown-Liste "Befehle auswählen aus".
- Klicken Sie anschließend auf das gerade erstellte Makro.
- Klicken Sie dann in der Mitte des Fensters auf "Hinzufügen".
- Jetzt wird das Makro in die neue Gruppe eingefügt. Klicken Sie einfach mit der rechten Maustaste auf das Makro.
- Und wählen Sie die Option "Umbenennen".
- Wählen Sie im Dialogfeld "Umbenennen" ein Symbol für Ihr Makro.
- Geben Sie dann den Anzeigenamen ein.
- OK klicken".
- Gehen Sie nun zurück zum Fenster "Word-Optionen" und klicken Sie dort auf "OK". Das Makro starts Aufnahme von jetzt an.
Text als unformatierten Text einfügen
- Kopieren Sie zunächst einen Teil eines Langtextes.
- Klicken Sie dann auf die Registerkarte "Home".
- Klicken Sie auf "Einfügen".
- Als nächstes wählen Sie "Inhalte einfügen".
- Wählen Sie im Dialogfeld "Inhalte einfügen" die Option "Unformatierter Text".
- Klicken Sie dann auf "OK". Möglicherweise erhalten Sie einen Text mit der folgenden Formatierung:
Entfernen Sie sich wiederholende Wörter
- Weiter start Löschen Sie die Formatierung links. Drücken Sie „Strg + H“, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
- Geben Sie "Pfeil" in das Textfeld "Suchen nach" ein.
- Klicken Sie dann auf "Alle ersetzen".
Tabulatorzeichen entfernen
- Drücken Sie zunächst „Strg + H“, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
- Geben Sie dann "^ t" in das Textfeld "Find what" ein.
- Klicken Sie anschließend auf "Alle ersetzen", um alle Tabulatorzeichen zu entfernen.
Entfernen Sie zusätzliche Leerzeichen
- Drücken Sie weiterhin "Strg + H", um das Dialogfeld "Suchen und Ersetzen" zu öffnen.
- Drücken Sie im Textfeld "Suchen nach" zweimal die leere Taste.
- Klicken Sie dann auf die Schaltfläche "Alle ersetzen".
Entfernen Sie leere Leerzeichen und zusätzliche Leerzeichen zusammen
Wenn Sie die Formatierung mithilfe der Funktion „Suchen und Ersetzen“ entfernen, müssen Sie manchmal einige Anpassungen vornehmen, um Ihren eigenen Anforderungen gerecht zu werden. Wenn Sie beispielsweise beim Anwenden der obigen Schritte nicht alle zusätzlichen Leerzeichen entfernen können, können Sie sie mithilfe der folgenden Schritte zusammen mit Leerzeilen löschen.
- Drücken Sie auf ähnliche Weise „Strg + H“, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
- Drücken Sie anschließend im Textfeld "Suchen nach" zuerst eine leere Taste.
- Geben Sie dann "^ p" ein.
- Geben Sie im Textfeld "Ersetzen durch" "^ p" ein.
- Klicken Sie auf "Alle ersetzen".
- Öffnen Sie erneut das Dialogfeld „Suchen und Ersetzen“.
- Geben Sie im Textfeld "Suchen nach" zuerst "^ p" ein.
- Drücken Sie dann einmal die leere Taste.
- Geben Sie dann "^ p" in das Textfeld "Ersetzen durch" ein.
- Klicken Sie abschließend auf die Schaltfläche "Alle ersetzen".
Entfernen Sie gegebenenfalls die linken Leerzeilen
Wenn jedoch noch Leerzeilen vorhanden sind, führen Sie die folgenden Schritte aus:
- Drücken Sie „Strg + H“, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
- Geben Sie als nächstes "^ p ^ p" in das Textfeld "Find what" ein.
- Geben Sie "^ p" in das Textfeld "Ersetzen durch" ein.
- Klicken Sie abschließend auf die Schaltfläche "Alle ersetzen".
Inzwischen erhalten Sie möglicherweise das folgende Ergebnis:
Wir empfehlen Ihnen, die obige Reihenfolge einzuhalten, um die Textformatierung zu entfernen, damit Sie die Formatierung im Allgemeinen löschen können. Und wie bereits erwähnt, müssen Sie manchmal andere Formatierungsarten löschen. Dann sollten Sie die Funktion „Suchen und Ersetzen“ selbst verwenden. Weitere Möglichkeiten zum Entfernen der Formatierung finden Sie in diesem Artikel: 3 Möglichkeiten, unerwünschte Elemente sofort aus Ihren Word-Dokumenten zu entfernen
Sie können das folgende Video überprüfen, um die Demonstration zu sehen:
Beenden Sie die Aufnahme des Makros
- Wenn Sie die Textformatierung entfernt haben, klicken Sie auf die Registerkarte "Entwickler".
- Klicken Sie dann auf "Aufnahme beenden". Jetzt wird das Makro gespeichert.
So führen Sie ein Makro aus
- Kopieren Sie den Text beispielsweise online.
- Öffnen Sie als nächstes Word.
- Klicken Sie dann auf die Registerkarte "Entwickler".
- Klicken Sie auf das Makrosymbol und Sie sehen den Text im Dokument ohne zusätzliche Formatierung.
Hinweis: Für Anfänger können Sie einfach die obigen Schritte ausführen, um ein Makro zu erstellen und auszuführen. Wenn Sie ein Makro ausführen, können Sie die irritierende Formatierung im Allgemeinen beseitigen, was ausreicht.
Die VBA-Codes für den Experten
Zunächst gibt es die Möglichkeit, die VBA-Codes anzuzeigen.
- Klicken Sie zunächst auf die Registerkarte "Entwickler".
- Klicken Sie dann in der Gruppe "Code" auf "Visual Basic".
- Klicken Sie im Editor "Microsoft Visual Basic für Applikationen" zuerst links auf "Normal".
- Klicken Sie dann auf "Module".
- Doppelklicken Sie anschließend auf "NewMacros" und Sie können den Code auf der rechten Seite anzeigen.
In diesem Fall lauten die Codes wie folgt:
Sub copytext ()
'
'Copytext-Makro
'
'
Selection.PasteSpecial Link: = False, DataType: = wdPasteText, Placement: = _
wdInLine, DisplayAsIcon: = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Mit Selection.Find
.Text = "Pfeil"
.Replacement.Text = ""
.Forward = Wahr
.Wrap = wdFindContinue
.Format = Falsch
.MatchCase = Falsch
.MatchWholeWord = Falsch
.MatchWildcards = Falsch
.MatchSoundsLike = Falsch
.MatchAllWordForms = Falsch
Ende mit
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Mit Selection.Find
.Text = "^ t"
.Replacement.Text = ""
.Forward = Wahr
.Wrap = wdFindContinue
.Format = Falsch
.MatchCase = Falsch
.MatchWholeWord = Falsch
.MatchWildcards = Falsch
.MatchSoundsLike = Falsch
.MatchAllWordForms = Falsch
Ende mit
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Mit Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = Wahr
.Wrap = wdFindContinue
.Format = Falsch
.MatchCase = Falsch
.MatchWholeWord = Falsch
.MatchWildcards = Falsch
.MatchSoundsLike = Falsch
.MatchAllWordForms = Falsch
Ende mit
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Mit Selection.Find
.Text = ”^ p”
.Replacement.Text = "^ p"
.Forward = Wahr
.Wrap = wdFindContinue
.Format = Falsch
.MatchCase = Falsch
.MatchWholeWord = Falsch
.MatchWildcards = Falsch
.MatchSoundsLike = Falsch
.MatchAllWordForms = Falsch
Ende mit
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Mit Selection.Find
.Text = "^ p"
.Replacement.Text = "^ p"
.Forward = Wahr
.Wrap = wdFindContinue
.Format = Falsch
.MatchCase = Falsch
.MatchWholeWord = Falsch
.MatchWildcards = Falsch
.MatchSoundsLike = Falsch
.MatchAllWordForms = Falsch
Ende mit
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Mit Selection.Find
.Text = "^ p ^ p"
.Replacement.Text = "^ p"
.Forward = Wahr
.Wrap = wdFindContinue
.Format = Falsch
.MatchCase = Falsch
.MatchWholeWord = Falsch
.MatchWildcards = Falsch
.MatchSoundsLike = Falsch
.MatchAllWordForms = Falsch
Ende mit
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Mit Selection.Find
.Text = "^ p ^ p"
.Replacement.Text = "^ p"
.Forward = Wahr
.Wrap = wdFindContinue
.Format = Falsch
.MatchCase = Falsch
.MatchWholeWord = Falsch
.MatchWildcards = Falsch
.MatchSoundsLike = Falsch
.MatchAllWordForms = Falsch
Ende mit
Selection.Find.Execute Replace: = wdReplaceAll
End Sub
Wenn Sie von Experten und fortgeschrittenen Benutzern sprechen, die mit VBA vertraut sind, können Sie die Codes vollständig an Ihre Anforderungen anpassen, was bequemer und präziser ist.
Sichern Sie Ihre Dateien
Benutzer von Word weltweit nutzen es in der Regel am besten. Es ist eine großartige und auch gefährliche Idee, da sie das Risiko erhöht, Word mit falschen Operationen zusammenzubrechen. Daher sollten Sie immer Möglichkeiten finden, Ihre Dateien zu sichern. Unter den verfügbaren Optionen erhalten Sie eine doc Reparatur Werkzeug vorher klingt nicht schlecht.
Einführung des Autors:
Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel-Erholung und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX
Hinterlassen Sie uns einen Kommentar