Supportnet / Forum / Textverarbeitung
Word-Makro
Frage
Hallo,
bin im Internet auf ihre Seite gestoßen. Hab ein Problem.
Möchte eine Datenquelle in Word aus Daten aus einer FoxPro2.6-dbf herstellen.
Dazu habe ich eine Tabelle in einem doc angelegt und mit Serienbrieffunktion die Datenfelder aus der dbf in die Tabelle ins
doc-Hauptdokument eingespielt.
Dann führe ich den Serienbrief aus und habe dann , wenn ich die Abschnitte fortlaufend mache, eine zusammenhängende Tabelle mit
den Datensätzen als doc-Datei. Soweit so gut.
Nur möchte ich nun die Abschnittwechsel löschen, damit diese doc als Word-Datenquelle hergenommen werden kann. Mit den noch
vorhandenen Abschnittwechseln gehts nicht.
Dazu habe ich ein Makro geschrieben:
sub Abschnittdelete ()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^b"
.Wrap = wdFindContinue
End With
Selection.Find.Execute
Selection.Delete unit:=wdCharacter, Count:=1
End Sub
Damit geht es zwar, aber ich muß das Makro bei mehreren Hundert Datensätzen entweder immer wieder ausführen oder den mittleren
Abschnitt mehrmals in das Makro hineinkopieren. Wenn ich zu oft kopiere, dann wird am Schluß im letzten Datensatz auch noch der
Text gelöscht.
Können Sie mir sagen (schreiben), wie hier eine "richtige" Schleife / Anweisung aussehen würde, die alle Abschnittwechsel per Makro
löscht, aber auch nicht mehr - und dann aufhören würde, am besten noch mit "Erfolgs-Mitteilung".
Ich bedanke mich im voraus.
MFG
Ralf Gabriel