HỎI: Cách nối nhiều file word lại thành 1 file duy nhất

[trungvdb]

Anh chị chỉ giúp em cách nối file nhiều file word riêng rẽ với nhau đi , các file của em dạo này phải chỉnh nhiều quá, em muốn hợp nhất với nhau để chỉnh cho nhanh.

Em có sưu tầm Code trên mạng về chạy không nổi, nhờ mọi người sửa dùm (hoặc cách nào nhanh nhất)

Sub MergeDocs()
    Dim rng As Range
    Dim MainDoc As Document
    Dim strFile As String
    Const strFolder = "C:\TEST\" 'change to suit
    Set MainDoc = Documents.Add
    strFile = Dir$(strFolder & "*.doc") ' can change to .docx 
    Do Until strFile = ""
        Set rng = MainDoc.Range
        rng.Collapse wdCollapseEnd
        rng.InsertFile strFolder & strFile
        strFile = Dir$()
    Loop
End Sub

Em xin trân trọng cảm ơn.

 

[Thay]

Tôi chỉ biết cách mở file đầu tiên ra, sau đó để chuột cuối văn bản, vào menu Insert-file , chọn file cần nối để chèn vào và cứ thế tiếp tục với file khác...

 

[tnductam]

Cho mình hỏi, làm một file word có nhiều phần như có nhiều chương (được đánh theo kiểu tự động) và mỗi phần được một người làm, làm sao ghép các phần đó lại với nhau thành một file word nhưng các chương theo thứ tự là Chương 1, Chương 2,...