Supportnet / Forum / Textverarbeitung
Serienbrief Einzelseiten
Frage
Kann mir jemend ein Makro für Winword nennen, mit dem ich beim Drucken eines Serienbriefes statt einer grossen Druckdatei Einzelseiten ausgeben kann?
Antwort 1 von Marie
Probier mal so:
Gruß Marie
dim inti as integer
for inti = 1 to DeineAnzahlDatensätze
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = inti
.LastRecord = inti
End With
.Execute Pause:=True
End With
ChangeFileOpenDirectory "C:\DeinSpeicherpfadPfad\"
ActiveDocument.SaveAs FileName:="Brief" & inti & ".doc", FileFormat:=wdFormatDocument _
, AddToRecentFiles:=True _
, EmbedTrueTypeFonts:=True
ActiveDocument.Close
next inti
Gruß Marie
dim inti as integer
for inti = 1 to DeineAnzahlDatensätze
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = inti
.LastRecord = inti
End With
.Execute Pause:=True
End With
ChangeFileOpenDirectory "C:\DeinSpeicherpfadPfad\"
ActiveDocument.SaveAs FileName:="Brief" & inti & ".doc", FileFormat:=wdFormatDocument _
, AddToRecentFiles:=True _
, EmbedTrueTypeFonts:=True
ActiveDocument.Close
next inti