Office: (Office 2007) Serienbrief in einzelne Dateien Speichern

Wünsche allen einen guten Morgen,

ich hatte für Word 2003 mal ein Makro, welches einen Serienbrief direkt in einzelne Dateien gespeichert hat.
Leider war ich nicht so clever es als txt zu sichern und nun nachdem alles auf Office2007 umgestellt wurde ist das Makro weg, was schon komisch ist,
denn die gespeicherten Makros in Excel sind noch vorhanden *confused.gif* .

Da ich nun selber keinerlei Ahnung von VBA-Programmierung habe, wäre es sehr nett, wenn jemand schauen könnte ob er/sie ein solches Makro zur Verfügung stellen könnte.

Als Hinweis mal kurz was ich damals immer gemacht habe:

- Brief erstellt
- mit Datenquelle (Excel) verbunden
- Makrobutton gedrückt
- dadurch wurden einzelne Dateien erstellt
- diese wurden gleich automatisch gespeichert im Ordner der Vorlage
- benannt nach einem Datenfeld und Tagesdatum
- jetzt nur noch alle wieder schließen, fertig,

Vielleicht kann mir ja jemand helfen, vielen Dank dafür schon mal im Voraus.

Grüße, der OfficeNoob

:)

 

ich kann dir zwar nicht helfen, aber such mal nach der Normal.dot.
Word2007 verwendet eine Normal.dotm und deshalb sind dort die Makros nicht mehr enthalten.

PS

 

Hab es jetzt selbst doch noch im Netz gefunden, hier für alle die es mal brauchen:

Code:

 

mh, was machst du mit dem ScriptingFileSystem?

PS

 

Hallo,
habe den Code ausprobiert.

Es werden alle Datein einzeln erzeugt - super!!!
Aber leider werden die Dateien auch alle (rd. 160 Stück) geöffnet und am Bildschirm angezeigt - nicht so super.
Wie kann ich dann unterbinden?

Danke für Eure Hilfe.

 

Hallo Leutens,
hab hier das Makro noch mal etwas überarbeitet. Die Dats werden mit Vor- und Familiennamen und dem aktuellen Datum im Dateinamen als ".doc" gespeichert:

Public Sub Seriendruck_in_getrennte_Dateien()

Dim iBrief As Integer, sBrief As String
Dim nName As String, Pfad As String, vName As String
nName = "Nachname"
vName = "Vorname" 'sind bei mir die Serienfelder und gibt dann die Dateinamen
Pfad = "E:\Einzelbriefe" 'Wohin auch immer du es haben möchtest

On Error GoTo Fehler

Application.Visible = False

With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 1
Do
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
dsname = Pfad & "\" & _
.DataFields(nName).Value & _
.DataFields(vName).Value & Date & ".doc"
End With
.Execute Pause:=False

ActiveDocument.SaveAs FileName:=dsname
ActiveDocument.Close False 'schließt die neuen Dateien nach dem Seichern

If .DataSource.ActiveRecord < .DataSource.RecordCount Then
.DataSource.ActiveRecord = wdNextRecord
Else
Exit Do
End If
Loop
End With

Fehler:
Application.Visible = True

End Sub


Hoffe ich kann damit helfen
Oli K.

 

Hallo und guten Morgen,

ich habe es ein wenig angepasst, aber leider funktioniert es danach nicht mehr.
Ich habe aber auch keinen Schimmer wie so nicht, eigentliche müsste es laufen, in einem anderem Makro funktioniert es genau so.

Code:

Aussehen soll der Dateiname dann so: Vorname - Nachname - TÄ2011.doc

Danke fürs Drübernachdenken. *Smilie

 

Hallo,

Was bewirken in der Sub

Code:

folgende Codezeilen:

a) Code:

???
b) Code:

VG JJ

 

Hallo jens,

ich hab das Makro mal getestet und hier mein "Testbericht":

1.
.SuppressBlankLines = True

ist eine Voreinstellung - seit Word 2007 glaub ich - und bedeutet: Steht ein Seriendruckfeld komplett allein in einer Zeile und ist leer, wird die Leerzeile nicht mitgedruckt, sondern unterdrückt.

2.
Ich bin der Meinung, dass die beiden Zeilen

.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord

überflüssig sind. Sie setzen erst den ersten und gleich drauf den letzten Datensatz als aktiven Satz.
Man kann beide auskommentieren und es läuft immer noch, weil der aktive Datensatz , so wie ich das sehe, anfangs auf 1 gesetzt wird:

.DataSource.ActiveRecord = 1

und in der Schleife jeweils auf den nächsten Datensatz gesetzt wird:

.DataSource.ActiveRecord = wdNextRecord

3.
Aber es läuft erst, wenn du in der Zeile

MsgBox "Bei der Erzeugung der Einzeldateien ist ein Fehler aufgetreten.", vbvritical, "Fehler")
den Tippfehler ausmerzt und die überflüssige schließende Klammer wegmachst.

4.
Außerdem gehört nach dem Schleifenende ein Exit Sub rein, sonst bekommst du die Fehlermeldung immer, auch wenn alles gut gelaufen ist.

5.
Schließlich stört mich, dass das Hauptdokument auf unsichtbar geschaltet wird und nur bei einem Fehler wieder sichtbar gemacht wird. Wenn ich das Makro verwenden würde, würde ich das am Schleifenende auf jeden Fall wiederauf true setzen.

 

Hallo,

ich wollt mal kurz danke sagen, weil ich dieses Makro seit langem sehr glücklich nutze! Es ist echt ideal und einfach, auch für Leute die keine Makros schreiben können *Smilie Herzlichen Dank!

Viele Grüße

Hugoline82

 

ups, falsch angehängt

 

Schau dir mal das Projekt an phg2020/WordLetterInExcel
Peter