Sub Serienbrief_Heften()
Dim i As Integer
Dim j As Integer
Dim f As Integer
Dim l As Integer
MsgBox (" Bitte überprüfen Sie zuerst Ihre Druckertreibereinstellungen ! " + Chr(13) + " [ Unsortiert, A4, Heften! ]") + Chr(13) + " Bitte auch in WORD/SEITE EINRICHTEN das Format auf A4 einstellen", , "Serienbrief Makro für Heften"
While j <= 0
On Error GoTo error
j = InputBox("Mit welchem Datensatz möchten Sie beginnen?" + Chr(13) + Chr(13) + "Bemerkung:" + Chr(13) + "Bitte nur numerische Werte von 1 bis ...", "Erster Satz", "1")
Wend
While f < j
On Error GoTo error
f = InputBox("Bis zu welchem Datensatz möchten Sie drucken?" + Chr(13) + Chr(13) + "Bemerkung:" + Chr(13) + "Bitte nur numerische Werte eingeben.", "Letzter Satz", "1")
Wend
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
For l = 1 To j - 1
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
Next l
For i = 1 To f - j + 1
ActiveDocument.PrintOut
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
Next i
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
GoTo ende
error:
MsgBox ("Sie haben ABBRUCH gewählt, einen falschen Eintrag oder keinen Serienbrief geöffnet!" + Chr(13) + Chr(13) + "Das Makro wird gestoppt, wenn notwendig Makro neu starten."), , "Achtung!"
ende:
End Sub