Разбить документ на отдельные файлы и переименовать каждый файл используя слияние. Поправить код

''Декларации для куска кода ниже.
 Dim d1 (source) As Object
 Dim d2 (app) As Object
 Dim moystring As String
 Dim nazvanie As String
 Set d2 = GetObject(, "Word.Application")
 Set d1 = d2.Documents.Open(moystring)

 ''Делаю слияние
 With d1.MailMerge
 .Destination = wdSendToNewDocument
 .SuppressBlankLines = True
 With .DataSource
 .FirstRecord = wdDefaultFirstRecord
 .LastRecord = wdDefaultLastRecord
 End With
 .Execute Pause:=False
 End With

 ''В результате предыдущего шага образовался один большой документ со всеми письмами. 
 ''Копирую его по секциям в новые документы, как учит Microsoft у себя на сайте.
 With d2
 Application.Browser.Target = wdBrowseSection
 For i = 1 To ((ActiveDocument.Sections.Count) - 1)
 ActiveDocument.Bookmarks("\Section").Range.Copy
 Documents.Add.Activate
 Selection.PasteAndFormat wdFormatOriginalFormatting
 Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
 Selection.Delete Unit:=wdCharacter, Count:=1
 ChangeFileOpenDirectory "C:\"
 DocNum = DocNum + 1
 
 ''Вот тут ниже непонятный момент
 >>ActiveDocument.SaveAs (????)<<
 End With
 ActiveDocument.Close
 Application.Browser.Next
 Next i
 End With

 ActiveDocument.SaveAs "C:\temp\" & d1.MailMerge.DataSource.DataFields.Item(i) & ".docx"