Существует возможность средствами самого WORD склеивать несколько файлов, но у меня задача стоит о склейке более 2000 2х страничных документов, а в WORDe есть ограничение - объединяется только 114 файлов, где оно снимается не понятно. Стал искать другие средства, одно из которых скрипт внутри самого ворда:
Код: Выделить всё
Sub MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
'(Change the path where your documents are residing)
Const strFolder = "d:\temp\27\Print\"
Set MainDoc = Documents.Add
'(Change file extension to .docx incase you are dealing with Word 20xx version)
strFile = Dir$(strFolder & "*.doc")
Do Until strFile = ""
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Loop
End Sub
