Add some VBA code

To save each serial letter into a single PDF, I use the following code: -------- Sub Merge_To_Individual_Files() 'Merges one record at a time to the chosen output folder [login to view URL] = False Dim StrFolder As String, StrName As String, MainDoc As Document, i As Long, j As Long Set MainDoc = ActiveDocument With MainDoc StrFolder = "C:\Users\Info\Downloads\" For i = 1 To .[login to view URL] With .MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = i .LastRecord = i .ActiveRecord = i If Trim(.DataFields("Az")) = "" Then Exit For StrName = .DataFields("Az") End With .Execute Pause:=False End With StrName = Trim(StrName) With ActiveDocument .SaveAs2 FileName:=StrPath & StrName & ".docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False ' and/or: .SaveAs2 FileName:=StrPath & StrName & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False .Close SaveChanges:=False End With Next i End With [login to view URL] = True End Sub --- Actually, the code runs quite fine, but the problem is that the serial print contains a dynamic picture via the INCLUDEPICTURE function. Thus, it is required to update each newly created document before saving by the following code. Anybody who can help to ut it to the right place in the source text? [login to view URL] [login to view URL](Array("Gerade Verbindung mit Pfeil 3")). _ Select [login to view URL]