Office: automatisch leere Seiten löschen

Hallo Forum,

nach stundenlangem googlen hoffe ich jetzt, dass ihr mir helfen könnt. Zu meinem Problem:

Mit Daten aus einem Datenbankprogramm wird ein Serienbrief mit Textmarken und Autotexten erzeugt. Die Datenbank wird von mehreren Personen „gefüttert“. Die Leute fügen oft, warum auch immer, bereits in der Datenerfassung nach dem Text etliche Leerzeilen ein.

Im Serienbrief kann das dazu führen, dass eine weitere, leere Seite an das Dokument gehängt wird. Mit Hilfe des Datenbankprogrammes schaffe ich es, dass beim Aufruf des Seriendruckdokumentes ein Makro ausgeführt wird.

Jetzt zu meiner Frage:

Ist es in Word möglich ein Makro zu schreiben, welches sämtliche Leerzeilen, aber NUR die nach dem Text, löscht? Hoffe ihr könnt mir helfen.
Gruß
Michael

 

kennt denn keiner ne Lösung? bin immer noch nicht weiter.

Wäre echt sehr dankbar für ne Idee.

 

Bearbeiten -> Suchen, Ersetzen,

suche nach leerzeichen, ersetzen durch nix = mehrere leerzeichen weg.

macht natürlich nur sinn, wenn du bei suche nach min. zwei leerzeichen reinmachst. machst du das mit einem leerzeichen könnte der text wohl ungewollt seltsam aussehen ;)

 

suchen, ersetzen

Hallo, danke für die Antwort.

Das hatte ich schon versucht. Was ich halt nicht hinbekomme; er soll erst nach dem "Text" suchen. Ein Dokument kann mehrere Seiten lang sein. Es kann auch notwendig und richtig sein, dass mitten im Text 2 bis x Leerzeilen sind. Nur nach dem Text sollen die verschwinden.

 

Code:

Sub ende()

'
    Selection.EndKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^13[!A-z]"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ich habe das mal so aufgezeichnet, probiere mal, ob das bei Dir klappt.

 

Vielen Dank, leider klappts nicht.
Er löscht alle leerzeilen im Dokument.