9
Makro für Word: überflüssige Leerzeichen und Absätze entfernen
Hallo zusammen,
ich bin auf der Suche nach einem Makro (vielleicht kann Word das auch schon so) mit dem man überflüssige Leerzeichen und Absätze aus einem Text entfernt.
Also einfach alles zusammenrückt, z.B wie folgt:
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Text Text Text Text Text Text Text Text Text
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Soll danach dann so aussehen:
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Danke für eure Hilfe!
Gruß
MrRoyal
ich bin auf der Suche nach einem Makro (vielleicht kann Word das auch schon so) mit dem man überflüssige Leerzeichen und Absätze aus einem Text entfernt.
Also einfach alles zusammenrückt, z.B wie folgt:
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Text Text Text Text Text Text Text Text Text
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Soll danach dann so aussehen:
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text Text
Danke für eure Hilfe!
Gruß
MrRoyal
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 441391
Url: https://administrator.de/contentid/441391
Printed on: April 24, 2024 at 12:04 o'clock
9 Comments
Latest comment
Sub LeereAbsätzeEntfernen()
Dim p As Paragraph, regex as object
Set regex = CreateObject("vbscript.regexp")
regex.Pattern = "^\s*$"
For Each p In ActiveDocument.Paragraphs
If regex.Test(p.Range.Text) Then p.Range.Delete
Next
End Sub
Dazu brauchts aber eigentlich auch kein eigenes Skript, sondern geht auch mit der Ersetzen/Replace Funktion.
Find what: (Leerzeichen), Replace with: nix
Find what: (Leerzeichen), Replace with: nix
Zitat von @clubmaster:
Dazu brauchts aber eigentlich auch kein eigenes Skript, sondern geht auch mit der Ersetzen/Replace Funktion.
Find what: (Leerzeichen), Replace with: nix
Löscht dir aber nicht die die leeren Absätze.Dazu brauchts aber eigentlich auch kein eigenes Skript, sondern geht auch mit der Ersetzen/Replace Funktion.
Find what: (Leerzeichen), Replace with: nix
Hallo
Grüße
lcer
Zitat von @139374:
Nee, da sucht Mann dann nach zwei Absätzen und ersetzt die durch einen. Das ganze mehrfach wiederholen, für aufeinanderfolgende leere AbsätzeZitat von @clubmaster:
Dazu brauchts aber eigentlich auch kein eigenes Skript, sondern geht auch mit der Ersetzen/Replace Funktion.
Find what: (Leerzeichen), Replace with: nix
Löscht dir aber nicht die die leeren Absätze.Dazu brauchts aber eigentlich auch kein eigenes Skript, sondern geht auch mit der Ersetzen/Replace Funktion.
Find what: (Leerzeichen), Replace with: nix
Suche: ^p^p
Ersetze durch: ^pGrüße
lcer
Danke hat prima funktioniert.
Dann kann ich doch so bestimmt auch überflüssige Zahlen wie z.B. Versnummern am Anfang eines Satzes rauswerfen oder?
Ich kenne leider nicht die Parameter für die Suchen/Ersetzen-Funktion.
Wenn mir damit noch jemand weiterhelfen könnte wäre ich super dankbar.
Danke
Dann kann ich doch so bestimmt auch überflüssige Zahlen wie z.B. Versnummern am Anfang eines Satzes rauswerfen oder?
Ich kenne leider nicht die Parameter für die Suchen/Ersetzen-Funktion.
Wenn mir damit noch jemand weiterhelfen könnte wäre ich super dankbar.
Danke
Ja klar, nach Makro fragen und alles andere als Lösung markieren... Hast du's überhaupt probiert, funktioniert einwandfrei und ohne manuelle Klickerei.
https://wordmvp.com/FAQs/General/UsingWildcards.htm
Ich kenne leider nicht die Parameter für die Suchen/Ersetzen-Funktion.
Kann man nachschlagenhttps://wordmvp.com/FAQs/General/UsingWildcards.htm
Sorry sollte kein Angriff sein. Leider hat das Makro bei mir aber nicht funktioniert.
Hier schon, welche Word Version? Und vor allem gehört dein Beispiel-Text hier in Codeblocks gesetzt.
Ich schätze bei dir sind Makros im Sicherheitscenter deaktiviert. Denn das ist wirklich simpler Code der auf jeden Fall funktionieren muss. Läuft nämlich auf sämtlichen Word-Versionen die ich hier im Repertoire habe, würde den Code ja nicht Posten wenn ich ihn nicht getestet hätte.
Ich schätze bei dir sind Makros im Sicherheitscenter deaktiviert. Denn das ist wirklich simpler Code der auf jeden Fall funktionieren muss. Läuft nämlich auf sämtlichen Word-Versionen die ich hier im Repertoire habe, würde den Code ja nicht Posten wenn ich ihn nicht getestet hätte.
