Publisher 2016 VBA MailMerge NextRecord problem

Hallo Community,

ich möchte meine Publikation gerne in ein PDF-Dokument speichern und dafür einen bestimmten Dateinamen verwenden. Jede Zeile in meiner Datenquelle stellt ein eigenes Dokument dar (so wie es auch üblich ist). Ich habe mir auf Grundlage der aktuellen VBA Referenz (https://msdn.microsoft.com/vba/vba-publisher) folgendes Makro erstellt.



Sub UniquePDFExport()
Dim v_frstRecord As Integer
Dim v_lastRecord As Integer
Dim v_actRecord As Integer
Dim v_i As Integer


With ActiveDocument.MailMerge
v_frstRecord = .DataSource.FirstRecord
v_lastRecord = .DataSource.RecordCount
.DataSource.ActiveRecord = 1
v_actRecord = .DataSource.ActiveRecord


For v_actRecord = 1 To v_lastRecord
If v_actRecord < v_lastRecord Then
.DataSource.ActiveRecord = v_actRecord
'MsgBox "Aktueller Datensaztz: " & v_actRecord & vbCrLf _
' & .DataSource.DataFields.item("Import Id").Value
ScreenUpdating = True
ThisDocument.ExportAsFixedFormat pbFixedFormatTypePDF, _
"C:\test\" & .DataSource.DataFields.item("Artikelnummer").Value & "_dc1.pdf"
End If
Next v_actRecord
End With

End Sub

Das Problem was ich habe ist, das der Active Datensatz einfach nicht wechseln will. Ich bekomme zwar für jeden Datensatz ein "unique" Dokument, allerdins steht in jedem Dokument das gleiche. Aus älteren Office-Versionen kenne ich die prozedur wdNextRecord. Diese scheint es bei Publisher 2016 aber nicht zu geben.


Ich hoffe jemand unter euch kann mir evtl. einen entsprechenden Hinweis geben.