Тема: Сохранение результатов слияния в отдельные файлы
Добрый день!
Подскажите, пожалуйста, сделала слияние ворда с экселем и хочу сохранить результат не в один большой файл, а каждый документ в отдельный файл с названием одного из полей из таблицы эксель.
Нашла вот такой макрос:
Dim DocNum As Integer
Dim DocName As String
For DocNum = 1 To ActiveDocument.MailMerge.DataSource.RecordCount
ActiveDocument.MailMerge.DataSource.ActiveRecord = DocNum
DocName = ActiveDocument.MailMerge.DataSource.DataFields(1).Value
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With
.Execute Pause:=False
End With
With ActiveDocument
.SaveAs FileName:="C://Test/" & DocNum & "_" & DocName, FileFormat:=wdFormatXMLDocument
.Close
End With
Next
но файлы у меня дублируются по два при сохранении:один называется -1.doc, другой 1.docООО "Ромашка"....
В чем может быть ошибка в макросе? и еще хотелось как нибудь прописать диапазон сохраняемых документов, а то сохраняет 200 документов, хотя в таблице Эксель только 5 заполненных строк...