chu10's 倉庫

chu10

How to Combine Multiple Word Documents into One Document
All you need to do is setup this simple Microsoft Word macro to merge many Word documents into a single Word document.
.
Sub MergeDocs()
    Dim rng As Range
    Dim MainDoc As Document
    Dim strFile As String
    Const strFolder = "C:\Book\Chapters\" 'change to suit
    Set MainDoc = Documents.Add
    strFile = Dir$(strFolder & "*.doc") ' can change to .docx  (chu10按：任何Word 可以開的檔案大概都可以，試過rtf是ok的）
    Do Until strFile = ""
        Set rng = MainDoc.Range
        rng.Collapse wdCollapseEnd
        rng.InsertFile strFolder & strFile
        strFile = Dir$()
    Loop
End Sub
.

自 http://www.gaebler.com/How-to-Combine-Multiple-Word-Documents-into-One-Document.htm