Прошу прощения, про
"Меню Tools->Mail merge->Окно Mail Merge Helper->Create->Envelopes"
не нашел, искал в Office XP.
Как понял из экспериментов, может и не правильно :(, сколько строчек в таблице сделаешь, столько записей(из источника) и отобразится.
Есть документ, в нем таблица, в ней 2 строки: первая заголовок, вторая данные. Делаем макрос autoopen, там считаем строчки в источнике и смотрим что есть в таблице, можно оставить что есть, можно загрузить новые данные.
строчку с данными используем как шаблон, для этого к ней пририсовываем NEXT, и копируем столько раз, сколько записей.


Sub autoopen()
Documents.Open FileName:="c:\src.txt", ConfirmConversions:=False, ReadOnly _
:=True, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto, Encoding:=1251
', Visible:=False на экране мелькает, а если оставить то все документы - невидимые, почему - не понял пока

ParagraphCount = ActiveDocument.Paragraphs.Count

ActiveDocument.Close

n1 = ActiveDocument.Tables(1).Rows.Count
If n1 > 2 Then
r1 = MsgBox("В таблице есть данные. Загрузить новые (OK), оставить старые (Cancel)", vbOKCancel, "Загрузка.")
If r1 = 1 Then
For i1 = n1 To 3 Step -1
ActiveDocument.Tables(1).Rows(i1).Delete ' удаляем имеющиеся данные
Next i1
Call mk_table(ParagraphCount - 1)
End If
Else
Call mk_table(ParagraphCount - 1)
End If
End Sub

Sub mk_table(ParagraphCount)

If ParagraphCount > 1 Then
Selection.HomeKey Unit:=wdStory
Selection.Find.Execute
Selection.Find.ClearFormatting
With Selection.Find ' по слову "операция" находим заголовок таблички
.Text = "операция"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveDown Unit:=wdLine, Count:=1

' берем вторую строку, копируем, вставляем, добавляем Next, размножаем сколько надо раз
Selection.SelectRow
Selection.Copy
Selection.Paste
ActiveDocument.MailMerge.Fields.AddNext Range:=Selection.Range 'next
Selection.SelectRow
Selection.Copy
For i = 2 To ParagraphCount - 1
'Selection.MoveDown Unit:=wdLine, Count:=1
Selection.Paste
Next i
End If
End Sub
В пианиста не стрелять - играет как умеет. ;)