Добавлять в один файл листы из 1000 других, Добавлять в один файл лист

Кажется, получилось.

Открываете Файл с макросом.docm.
Выполняете макрос UniteFiles2, который там есть.
Макрос сейчас рассчитан на 5 файлов, но Вы можете заменить 5 на 10000.

Ограничения:
1. Все файлы должны лежать в одной папке.
2. Файл text.docx должен быть в режиме полной функциональности (не "ограниченной функциональности").
3. Все файлы должны называться так, как мы договаривались.
4. Не должно быть пропусков номеров.

Текст макроса:

Sub UniteFiles2()
Dim i As Integer
    For i = 1 To 5
        Documents.Open FileName:="text.docx"
        Selection.EndKey Unit:=wdStory
        Selection.InsertFile FileName:="Страница " & CStr(i) & ".rtf", Range:="", ConfirmConversions:= _
            False, Link:=False, Attachment:=False
        ActiveDocument.SaveAs2 FileName:="Результат " & CStr(i) & ".docx"
        ActiveDocument.Close SaveChanges:=True
    Next i
    MsgBox ("Обработано " & (i - 1) & " файлов")
End Sub

Проверьте, пожалуйста.

Пишет, что не находит файла text.docx.
Не могу понять, почему так получается. Файл - на месте.

Немного усовершенствовал макрос, указал непосредственный путь к файлам.
У меня на работе все работает.
Вечером проверю на домашнем компьютере.

Макрос следующий:

Sub UniteFiles3()
Dim i As Integer
    'MsgBox ActiveDocument.FullName
    For i = 1 To 5
        Documents.Open FileName:=ActiveDocument.Path & "\text.docx"
        Selection.EndKey Unit:=wdStory
        Selection.InsertFile FileName:=ActiveDocument.Path & "\Страница " & CStr(i) & ".rtf", Range:="", ConfirmConversions:= _
            False, Link:=False, Attachment:=False
        ActiveDocument.SaveAs2 FileName:=ActiveDocument.Path & "\Результат " & CStr(i) & ".docx"
        ActiveDocument.Close SaveChanges:=True
    Next i
    MsgBox ("Обработано " & (i - 1) & " файлов")
End Sub

Еще обратите, пожалуйста, внимание, что активным в Ворде должен быть файл Файл с макросом.docm.

Если так, то не работает. Нету файлов результат1.docx, результат2.docx....

sabotajue пишет:

То есть я должен открыть файл с макросом.docm после чего выполнить макрос, выбрать файлы .rtf, и в итоге должен получить файлы результат.docx?

Правильно я Вас понял?

Alex_Gur пишет:

Немного усовершенствовал макрос, указал непосредственный путь к файлам.
У меня на работе все работает.
Вечером проверю на домашнем компьютере.

Макрос следующий:

Sub UniteFiles3()
Dim i As Integer
    'MsgBox ActiveDocument.FullName
    For i = 1 To 5
        Documents.Open FileName:=ActiveDocument.Path & "\text.docx"
        Selection.EndKey Unit:=wdStory
        Selection.InsertFile FileName:=ActiveDocument.Path & "\Страница " & CStr(i) & ".rtf", Range:="", ConfirmConversions:= _
            False, Link:=False, Attachment:=False
        ActiveDocument.SaveAs2 FileName:=ActiveDocument.Path & "\Результат " & CStr(i) & ".docx"
        ActiveDocument.Close SaveChanges:=True
    Next i
    MsgBox ("Обработано " & (i - 1) & " файлов")
End Sub

Еще обратите, пожалуйста, внимание, что активным в Ворде должен быть файл Файл с макросом.docm.

Alex_Gur пишет:

Пишет, что не находит файла text.docx.
Не могу понять, почему так получается. Файл - на месте.

Попробуйте в Documents.Open указать полный путь к файлу test.docx.

Также в VBA-коде лучше использовать переменную-объект для анализа корректности открытого файла, напр:

Set opf = Nothing
On Error Resume Next
Set opf = Documents.Open(FileName:="<Full_path>")
On Error GoTo 0
If Not (opf Is Nothing) Then
   'Обработка файла
Else
   'Обработка ошибки открытия
End If

Alex_Gur пишет:

Коллега yshindin, если не трудно, проверьте, пожалуйста, работает ли у Вас на компьютере макрос UniteFiles3 из файла Файл с макросом.docm (см. в приложении)?

Файл с макросом.docm должен быть открыт и активен в Ворде.

Макрос начинает работать, НО выдается сообщение о том, что файл "...\Страница 1.rtf" не может быть найден." Действительно, такого файла в распакованном архиве нет, т.к. имена все файлов в этом архиве состоят из кракозябр, напр., "╤ЄЁрэшЎр 1.rtf" (такое впечатление, что были проблемы с кодировкой при архивации). Во всяком случае, файл test.docx открывается нормально.

Может тему уже не актуальна. Но  я выложу свой вариант. Адрес, названия и количество файлов значения не имеют. Может пригодится.