automatisch leere Seiten löschen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Word 2002] automatisch leere Seiten löschen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Autor

Nachricht

KoMike
Newbie
Newbie

Anmeldedatum: 01.08.2008
Beiträge: 4

Verfasst am: 04.08.2008, 07:43

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

KoMike
Newbie
Newbie

Anmeldedatum: 01.08.2008
Beiträge: 4

Verfasst am: 12.08.2008, 07:44

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

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

jessica_2007
Besserwisser

Anmeldedatum: 08.01.2008
Beiträge: 52

Verfasst am: 13.08.2008, 12:59

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 ;)

KoMike
Newbie
Newbie

Anmeldedatum: 01.08.2008
Beiträge: 4

Verfasst am: 13.08.2008, 14:08

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.

Betty
User mit gefährlichem Halbwissen

Anmeldedatum: 13.02.2006
Beiträge: 103

Verfasst am: 13.08.2008, 14:48

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.

_________________
Gruß Betty

KoMike
Newbie
Newbie

Anmeldedatum: 01.08.2008
Beiträge: 4

Verfasst am: 13.08.2008, 14:57

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Felder mit Auswahlfeld automatisch au...	mflint	Microsoft Access Hilfe	0	15.10.2008, 14:07
	Korrelationsergebnis automatisch anal...	Abiroth	Microsoft Excel Hilfe	2	07.10.2008, 13:28
	VBA - Zellinhalt löschen,wenn in eine...	Mightymagic	Microsoft Excel Hilfe	2	06.10.2008, 23:06
	Stelle in einem Eintrag löschen	Marcus	Microsoft Excel Hilfe	5	02.10.2008, 11:37
	Datum nach Eingabe automatisch in Zel...	RalfMoeller	Microsoft Excel Hilfe	4	27.09.2008, 12:45

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de