Bei Serienbrief Dokumente einzeln Speichern mit Makro funktioniert nicht?
Ich möchte die Dokumente im Serienbrief einzeln automatisch speichern mittels Makro und habe das unten angefügte Makro dafür auch gefunden aber es funktioniert bei mir noch nicht sondern debugt immer und zeigt Fehler in der Variable an. Ich hab auch den Pfad schon auf mein Dokument angepasst. Muss ich evtl noch den Dateinamen ändern?
Sub Test()
'
' Serienbrief in einzelnen Word Dokumenten speichern
'
Dim Dateiname As String
Dim LetzterRec As Long
Application.ScreenUpdating = False
Application.Visible = False
Const path As String = "C:\Test\" '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 & ".docx"
End With
.Execute Pause:=False
ActiveDocument.SaveAs FileName:=Dateiname 'Speichern unter Dateiname
ActiveDocument.Close False
End If
End If
If .DataSource.ActiveRecord < LetzterRec Then
.DataSource.ActiveRecord = wdNextRecord
Else
Exit Do
End If
Loop
End With
Application.Visible = True
Application.ScreenUpdating = True
End Sub
Ich kenne mich leider mit VBA nur in Excel aus, aber auf jeden Fall schon mal die Nachfrage:
WELCHER Fehler in WELCHER Variablen in WELCHER Zeile?
Kein Problem, trotzdem schon mal
FileName=Dateiname
und DataFields("VorNachname").Value <> "0" Then
Und WELCHER Fehler jeweils?
Jeweils variable nicht definiert
1 Antwort
Jeweils variable nicht definiert
Da bin ich dann leider "raus".
Das versteh ich nicht,
denn Dateiname IST definiert
und beim zweiten sehe ich gar keine Variable.