переименовать файл Word при "нарезке"

[EkaterinaR]

При помощи слияния формирую письма.
Получаю огромное полотно.
Далее макрос его нарезает, но имя файла зависит от цикла.
А мне необходимо чтобы за имя он брал первую строчку из файла ворд, который только что "отрезал". Помогите плиииз.
Макрос такой:

Sub Split_document()
Dim srcdoc As Document, newdoc As Document
Dim i As Integer

Set srcdoc = ActiveDocument
For i = 1 To srcdoc.Sections.Count - 1
srcdoc.Sections(i).Range.Copy
Set newdoc = Documents.Add
newdoc.Range.Paste
newdoc.Sections(2).PageSetup.Sectio nStart = wdSectionContinuous
newdoc.SaveAs srcdoc.Path & "\" & Left(srcdoc.Name, Len(srcdoc.Name) - 4) & _
"_" & Format(i, "000") & ".docx"
newdoc.Close
Next
End Sub

[shanemac51]

При помощи слияния формирую письма.

А нужно ли слияние?
может сразу формировать документы по-штучно, выводя данные из некой таблицы excel в шаблон ворда

[EkaterinaR]

Хм, могли бы помочь с таким макросом?
Я не знала, что такое возможно.

Мне хотя бы на примере, где одна строка и три столбца.
1 ст.: имя нового файла ворда
2 ст.: Текст
3 ст.: Сумма

И все это формируется в файл ворд "Имя нового файла ворд" с содержанием: "Текст. Сумма."