метод Слияние, сохранить в новых файлах с уникальным названием

Наткнулась на ваш форум пытаясь решить проблему сохранения по отдельности в pdf файлов письма, создаваемых слиянием.
Попыталась разобраться по с приведенным скриптом, дошла до момента когда он как бы сохраняет, но по факту нет файлов.

Sub SaveEachMergeToFile()
  Dim oMergedDoc As Document
  Const OUTGOING As String = "number"
  If ActiveDocument.MailMerge.MainDocumentType <> wdNotAMergeDocument Then
    Set oMergedDoc = ActiveDocument
  Else
    MsgBox "Активный документ должен быть создан слиянием.", vbExclamation, "Сохранение документов после слияния"
    Exit Sub
  End If
  If Not oMergedDoc.Bookmarks.Exists(OUTGOING) Then
    MsgBox "В документе нет закладки с именем " & OUTGOING & ", которая используется в качестве имени файла." & vbNewLine & _
          "Создайте закладку с таким именем и запустите макрос ещё раз", vbExclamation, "Сохранение документов после слияния"
    Exit Sub
  End If
  
  oMergedDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord
  
  Dim i As Integer
  With oMergedDoc.MailMerge
    For i = 1 To .DataSource.RecordCount
      .Destination = wdSendToNewDocument
      .SuppressBlankLines = True
      With .DataSource
        .FirstRecord = .ActiveRecord
        .LastRecord = .ActiveRecord
      End With
      .Execute False
      With Documents(1)
        .ExportAsFixedFormat oMergedDoc.Path & "Application.PathSeparator" & oMergedDoc.Bookmarks(OUTGOING).Range.Text, wdExportFormatPDF
        .Close False
      End With
      .DataSource.ActiveRecord = wdNextRecord
      DoEvents
    Next
  End With
  
  MsgBox "Все документы слияния сохранены в папку """ & oMergedDoc.Path & """", vbInformation, "Сохранение документов после слияния"
End Sub