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

[katerikanna]

Добрый день!
Помогите, пожалуйста! Сделала слияние ворда с экселем, прописала макрос чтобы файлы сохранялись по одному, но макрос ругается красным. ЧТо может быть не так

Dim DocNum As IntegerFor DocNum = 1 To ActiveDocument.MailMerge.DataSource.RecordCount
ActiveDocument.MailMerge.DataSource.ActiveRecord = DocNum
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 & ".doc", FileFormat:=wdFormatXMLDocument.Close
End With
Next

Очень надеюсь на Вашу помощь



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Aleksandr H.]

Макрос "ругается" кодом ошибки и ее описанием, а не "красным". Приведите их или скриншот ошибки ругания

IntegerFor

ето на самом деле цитата с кода или так вы прочитали правила оформления фрагментов кода и неумело вставили этую ахиненю сюда?

[shanemac51]

исправила часть ошибок(но уверена, чт не все)

Dim DocNum As Integer

For DocNum = 1 To ActiveDocument.MailMerge.DataSource.RecordCount
ActiveDocument.MailMerge.DataSource .ActiveRecord = DocNum
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 & ".doc", FileFormat:=wdFormatXMLDocument.Close
End With
Next