Добрый день!!!!!
Есть такая проблема........
В екселевской таблице ведется реестр постановлений.
При помощи слияния на основании информации, внесенной в ексель, в ворде формируются распоряжения.
Распоряжение идет на 1 л. После завершения слияния пользователю приходится сохранять каждое распоряжение. Имя вордовского документа вносится вручную (имя документа совпадает с переменным полем MERGEFIELD (например "ФИО").
Вопрос:
Как с помощью макроса сделать так, чтобы имя по умолчанию при сохранении бралось из переменного поля???????
Есть макрос который сохраняет лист в новом документе и имя по умолчанию Письмо 1, Письмо 2 и т.д.:

Sub SaveEachPageToFile()
Dim oRng As Range, oMainDoc As Document, oNewDoc As Document, sFileName$, iPage%

Application.ScreenUpdating = False

Set oMainDoc = ActiveDocument

Set oRng = oMainDoc.Range

Do While iPage <= oMainDoc.ComputeStatistics(2) 'wdStatisticPages
iPage = iPage + 1

If iPage < oMainDoc.ComputeStatistics(2) Then
oRng.SetRange oRng.Start, oRng.GoToNext(1).Start 'wdGoToPage
Else
oRng.SetRange oRng.Start, oMainDoc.Range.End
End If

oRng.Copy

Set oNewDoc = Documents.Add

oNewDoc.Range.PasteAndFormat 16 'wdFormatOriginalFormatting
sFileName = "Страница " & iPage & " документа «" & Mid(oMainDoc.Name, 1, InStrRev(oMainDoc.Name, ".") - 1) & "»"

oNewDoc.SaveAs oMainDoc.Path & Application.PathSeparator & sFileName & ".doc", AddToRecentFiles:=False, FileFormat:=wdFormatDocument97

oNewDoc.Close True

Set oRng = oRng.GoToNext(1) 'wdGoToPage
Loop

Application.ScreenUpdating = True
MsgBox "Сохранено в файлы " & iPage & " страниц." & vbCr & _
"Папка сохранения: " & oMainDoc.Path & Application.PathSeparator, vbOKOnly + vbInformation, "Документы сохранены"
End Sub

oNewDoc.Content.Delete
oRng.Copy
oNewDoc.Content.Paste


sFileName = "Страница " & iPage & " документа (" & Mid(oMainDoc.Name, 1, InStrRev(oMainDoc.Name, ".") - 1) & ")"
oNewDoc.SaveAs oMainDoc.Path & Application.PathSeparator & sFileName & ".doc", AddToRecentFiles:=False ', FileFormat:=wdFormatDocument97
Loop While iPage < cntp

Set oRng = Nothing
tmu = timeGetTime() - tm
oNewDoc.Close wdDoNotSaveChanges
Set oNewDoc = Nothing
Application.ScreenUpdating = True

tm = timeGetTime() - tm
timeEndPeriod 1
Debug.Print "Модифицированный = " & CStr(tm / 1000) & "(" & CStr(tmu / 1000) & ")"
MsgBox "Сохранено в файлы " & iPage & " страниц." & vbCr & _
"Папка сохранения: " & oMainDoc.Path & Application.PathSeparator, vbOKOnly + vbInformation, "Документы сохранены"
Set oMainDoc = Nothing
End Sub

Shocker.Pro,

Это макрос присваивает имя документу Письмо 1, письмо 2, письмо 3 и т.д.
А мне надо чтобы имя присваивалось Иванов, Петров, Сидоров. Эта информация из переменного поля при слиянии (ФИО в тексте)

Shocker.Pro,

Прошу прощения.
В экселе заносится информация из постановления.
Номер постановления, дата, номер уведомления, сумма, ФИО должника и т.д.
В ворде шаблон распоряжения.
При сливании меняются Номер постановления, дата, номер уведомления, сумма, должник и т.д.
Потом каждое распоряжение сохраняют (команда слияния "Изменить часть писем"). Имя распоряжения присваивают ФИО должника. Сохраняют вручную. Как сделать так чтобы после нажатия изменить часть писем имя документа было ФИО должника.
Могу прикрепить экселевскую таблицу и вордовский файл.

Shocker.Pro,

Lelik61,

После запуска функции слияния у нас в ворде 2 распоряжения.
Когда мы нажимаем "изменить часть писем" надо чтобы в новом вородвском документе имя было "Иванов"
Когда мы нажмем второй раз "изменить часть писем" надо чтобы имя было "Петров"

Lelik61,

Фамилия должника берется из экселя.

Lelik61,

Мы в вордовском шаблоне нажимаем - сервис - письма и рассылки - слияние
Выбираем источник "это книга 1"
далее
далее
получаются два распоряжения
мы из листаем
в одном должник иванов
в другом петров
в первом распоряжении нажимаем "изменить часть писем" и получаем новый документ Письмо 1
А надо чтобы имя документа было Иванов

Lelik61,

ФИО Должника, и другие данные переменные

Shocker.Pro,

Просто дело в том что количество распоряжений большое.
После завершения слияния когда они в одном документе (предположим 200 шт.) мы их распечатываем, а потом разбиваем постранично (т.к. одно распоряжение одна страница) и присваиваем имена. А имя в тексте есть. Как бы это автоматизировать, чтобы одно распоряжение сохранялись в одном файле, а имя файла было ФИО должника.

Lelik61,
Изначально информация вносилась вручную в эксель, а потом вручную все это вносилось в ворд.
Два раза одно и тоже делали.
Теперь слиянием быстро формируем распоряжения, только долго их сохраняем((((((((((