Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Serienbriefe korrekt heften lassen

2,231 views
Skip to first unread message

graueOptionen

unread,
Sep 11, 2009, 2:51:01 AM9/11/09
to
Ein Kunde erstellt einen 17-seitigen Serienbrief mit 1000 Datensätze mit
Word2007. Die einzelnen Serienbriefe sollen automatisch durch das
Multifunktionsgerät geheftet werden - der Drucker sieht jedoch das gesamte
Dokument als eine Datei.

Wie können die Serienbriefe erstellt werden, dass diese korrekt alle 17
Seiten geheftet werden?

Danke im Voraus

Gerd

Thomas Löwe [MS MVP Word]

unread,
Sep 11, 2009, 3:37:09 AM9/11/09
to
Hallo Gerd,

"graueOptionen" <graueO...@discussions.microsoft.com> schrieb im
Newsbeitrag
news:951EA63E-667B-4621...@microsoft.com...

> Ein Kunde erstellt einen 17-seitigen Serienbrief mit 1000 Datensätze
> mit Word2007. Die einzelnen Serienbriefe sollen automatisch durch
> das Multifunktionsgerät geheftet werden - der Drucker sieht jedoch

> das gesamte Dokument als eine Datei.Wie können die Serienbriefe


> erstellt werden, dass diese korrekt alle 17 Seiten geheftet werden?

eine Möglichkeit wäre den Serienbrief in ein neues Dokument auszugeben
und diesen dann auf den Drucker auszugeben. Hierbei werden einzelne
Abschnitte erzeugt.

Mit deiner Frage solltest du dich auch an den Druckerhersteller wenden.

Bei weiteren Fragen stehen wir dir jederzeit gern zur Verfügung.

--
Mit freundlichen Grüßen / With best regards
Thomas Löwe [Microsoft MVP Word]
Es erfolgt keine Beantwortung von Supportanfragen per E-Mail.
http://support.microsoft.com

graueOptionen

unread,
Sep 11, 2009, 3:48:01 AM9/11/09
to
Hallo Thomas,
vielen Dank für Deine Antwort. Wir haben den Serienbrief in eine neue Datei
geschrieben, dennoch wird auch dieses Dokument vom Drucker als ein Dokument
erkannt - er erkennt also nicht dass alle 17 Seiten ein neues Dokument
beginnt.

Beim Drucker kann ich nicht einstellen, dass die Heftung alle 17 Seiten zu
erfolgen hat.

Danke im Voraus

Gerd

Lisa Wilke-Thissen

unread,
Sep 11, 2009, 4:05:33 AM9/11/09
to
Hallo Gerd,

"graueOptionen" schrieb

[Word 2007]


> Wir haben den Serienbrief in eine neue Datei
> geschrieben, dennoch wird auch dieses Dokument
> vom Drucker als ein Dokument erkannt - er erkennt
> also nicht dass alle 17 Seiten ein neues Dokument
> beginnt.

vielleicht helfen dir diese VBA-Lösungen weiter:

"Save each merged letter as a separate file"
http://homepage.hispeed.ch/cindymeister/mergfaq2.htm

"How to programmatically save each page or section of a document as a
separate file"
http://support.microsoft.com/kb/306348/en-us

--
Viele Grüße

Lisa
MS MVP Word

graueOptionen

unread,
Sep 11, 2009, 4:37:01 AM9/11/09
to
Hallo Lisa,

[Word 2007]
> > Wir haben den Serienbrief in eine neue Datei
> > geschrieben, dennoch wird auch dieses Dokument
> > vom Drucker als ein Dokument erkannt - er erkennt
> > also nicht dass alle 17 Seiten ein neues Dokument
> > beginnt.

> vielleicht helfen dir diese VBA-Lösungen weiter:

> "Save each merged letter as a separate file"
> http://homepage.hispeed.ch/cindymeister/mergfaq2.htm

> "How to programmatically save each page or section of a document as a
> separate file"
> http://support.microsoft.com/kb/306348/en-us

> Viele Grüße
>
> Lisa
> MS MVP Word

Gibt es hier keine einfachere Lösung - ist es z.B. nicht möglich, in dem
erzeugten Serienbrief am Ende jeden Serienbriefsatzes dem Drucker
mitzuteilen, dass hier ein neues Dokument beginnt?

Danke

Gerd

Thomas Löwe [MS MVP Word]

unread,
Sep 11, 2009, 9:08:00 AM9/11/09
to
Hallo Gerd,

"graueOptionen" <graueO...@discussions.microsoft.com> schrieb im
Newsbeitrag

news:6950F2FB-2DB0-4561...@microsoft.com...

>> "Save each merged letter as a separate file"
>> http://homepage.hispeed.ch/cindymeister/mergfaq2.htm

>> "How to programmatically save each page or section of a document as a
>> separate file"
>> http://support.microsoft.com/kb/306348/en-us

> Gibt es hier keine einfachere Lösung - ist es z.B. nicht möglich,


> in dem erzeugten Serienbrief am Ende jeden Serienbriefsatzes
> dem Drucker mitzuteilen, dass hier ein neues Dokument beginnt?

vielen Dank für deine Nachricht.

Nach meinen Informationen besteht leider keine entsprechende
Möglichkeit.

graueOptionen

unread,
Sep 11, 2009, 9:43:02 AM9/11/09
to
Hallo Thomas,
danke für Deine Antwort - ist etwas derartiges für zukünftige Versionen
geplant - sinnvoll wäre es ja schon bei Serienbriefen oder was meinst Du?

Danke

Gerd


"Thomas Löwe [MS MVP Word]" wrote:

Thomas Löwe [MS MVP Word]

unread,
Sep 11, 2009, 12:21:50 PM9/11/09
to
Hallo Gerd,

"graueOptionen" <graueO...@discussions.microsoft.com> schrieb im
Newsbeitrag

news:C6A5257E-DC7B-4008...@microsoft.com...

>> >> "Save each merged letter as a separate file"
>> >> http://homepage.hispeed.ch/cindymeister/mergfaq2.htm
>> >> "How to programmatically save each page or section of a document as a
>> >> separate file"
>> >> http://support.microsoft.com/kb/306348/en-us

>> > Gibt es hier keine einfachere Lösung - ist es z.B. nicht möglich,
>> > in dem erzeugten Serienbrief am Ende jeden Serienbriefsatzes
>> > dem Drucker mitzuteilen, dass hier ein neues Dokument beginnt?

>> Nach meinen Informationen besteht leider keine entsprechende
>> Möglichkeit.

> ist etwas derartiges für zukünftige Versionen geplant - sinnvoll


> wäre es ja schon bei Serienbriefen oder was meinst Du?

vielen Dank für deine Nachricht.

Hierzu liegen mir keine Informationen vor.

Du kannst dein Feedback eingeben unter:
https://feedback.office.microsoft.com/default.aspx?productkey=office2007

Du kannst Hinweise für Änderungen in zukünftigen Versionen
von Microsoft Office übermitteln. Bitte sende dein Feature
Request in englischer Sprache. Beachte bitte, dass du keine
persönliche Antwort erhalten wirst.

Bei weiteren Fragen stehen wir dir jederzeit gern zur Verfügung.

--
Mit freundlichen Grüßen / With best regards
Thomas Löwe [Microsoft MVP Word]

Es erfolgt keine Beantwortung von Supportanfragen per persönlicher E-Mail.
http://support.microsoft.com

Lisa Wilke-Thissen

unread,
Sep 12, 2009, 6:06:10 AM9/12/09
to
Hallo Gerd,

[Word 2007]

>> "Save each merged letter as a separate file"
>> http://homepage.hispeed.ch/cindymeister/mergfaq2.htm
>
>> "How to programmatically save each page or section
>> of a document as a separate file"
>> http://support.microsoft.com/kb/306348/en-us

> Gibt es hier keine einfachere Lösung - ist es z.B. nicht


> möglich, in dem erzeugten Serienbrief am Ende jeden
> Serienbriefsatzes dem Drucker mitzuteilen, dass hier
> ein neues Dokument beginnt?

vermutlich kann man Befehle einbauen, die den Drucker direkt steuern. Dazu
müsste man aber genau diese Befehle für PCL5 etc. kennen und wissen, wie und
wo man sie in Word einbaut.

Einfacher ist sicher eine VBA-Lösung, die den fertigen Serienbrief nicht
erst (wie in den oben genannten Makros) in einzelne Dateien aussplittet,
sondern jeden Abschnitt separat ausdruckt. Der fertige Serienbrief enthält
ja je Datensatz einen Abschnitt (Section), sofern nicht schon im
Seriendruck-Hauptdokument Abschnittswechsel enthalten sind.

Zwei Makros habe ich auf der Seite
http://www.administrator.de/index.php?content=82479 gefunden und weiter
unten aufgeführt.
Teste am besten beide mal aus. Sollten Fragen dazu auftauchen, wende dich
bitte an die Newsgroup für Word-VBA.

Viele Grüße

Lisa
MS MVP Word


----------- Makro 1 -----------------
Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i
Next i
End With

----------- Makro 2 -----------------

Sub PrintOut()
'
' Prints every record of a mail merge document as a separate
' print job
' Macro created 31.03.2008 by groet
'
On Error GoTo Fehler

Application.Visible = False

With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 1

With Dialogs(wdDialogFilePrint)

x = .Show
End With
If x = -1 Then 'OK button pressed

.DataSource.ActiveRecord = wdNextRecord 'first record has already been
printed

Do
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
End With
Application.PrintOut

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

End If
End With
Fehler:
Application.Visible = True

End Sub

0 new messages