könnte bitte einmal jemand über das Makro schauen und mir sagen warum gemerkt wird.
Hier der Befehl:
ActiveDocument.ExportAsFixedFormat\
'Speichern unter Dateiname
(siehe unter die ganze Makro)
Ich habe das Makro geändert an der Stelle, weil ich benötige einzelne pdf Dateien.
Danke vorab für eure Hilfe
Sub Test()
' Serienbrief in einzelnen PDF Dokumenten speichern
Dim Dateiname As String
Dim LetzterRec As Long
Application.ScreenUpdating = False
Application.Visible = False
Const path As String = "C:\Users\Ralf.Bredenbeck\Desktop\Projekte\Karlstein\" 'Pfad _
_
_
anpassen
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord
LetzterRec = Word.ActiveDocument.MailMerge.DataSource.ActiveRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
With ActiveDocument.MailMerge
.DataSource.ActiveRecord = wdFirstRecord
Do
If .DataSource.ActiveRecord > 0 Then
If .DataSource.DataFields("VorNachname").Value "0" Then
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
Dateiname = path & .DataFields("VorNachname").Value & ".pdf"
End With
.Execute Pause:=False
ActiveDocument.ExportAsFixedFormat\
'Speichern unter Dateiname
ActiveDocument.Close False
End If
End If
If .DataSource.ActiveRecord