Недавно тоже сталкивался с похожей проблемой.
Пришлось написать макрос для этого.
Только все файлы должны иметь последовательную нумерацию.
Например
MyFile_001.doc, MyFile_002.doc, ... , MyFile_nnn.doc.Переименовать так все файлы, лежащие в папке можно легко с помощью
Total Commander например. Там есть специальная функция в меню Файлы - Групповое переименование.
После подготовки всех файлов в основной свой документ вставляешь этот вот макрос.
Для этого в Сервис-Макросы-Макрос делаешь "Создать макрос", вставляешь туда код макроса, подправив шаблоны имен и имя папки на свои и установив нужное тебе количество файлов.
Код макроса: Code
Sub Макрос1()
ChangeFileOpenDirectory "c:\МойКаталог\"
For i = 1 To 224
cFileName = "MyFile_" + Right(CStr(1000 + i), 3) + ".doc"
Documents.Open FileName:=cFileName, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
Selection.WholeStory
Selection.Copy
ActiveWindow.Close
Selection.EndKey Unit:=wdStory
Selection.Paste
Next
End Sub
здесь
МойКаталог - папка, в которой лежат твои файлы на диске С,
MyFile_nnn.doc - вид шаблона для имен файлов,
а в строке
For i = 1 To 224 - ставишь, начиная с какого и по какой номер добавлять, здесь с 1 по 224.
Само собой в настройках
Word в меню Сервис-Параметры надо "разрешить макросы" - для офиса 2003 - это Защита от макросов - Низкая.
Потом - запускаешь макрос в меню Макросы - Макрос1 - Выполнить, после чего наблюдаешь за процессом и получаешь удовольствие.
