利用C#實現合併Word檔案功能

using Spire.Doc;

namespace MergeWord
{
    class Program
    {
        static void Main(string[] args)
        {
            //建立一個Document範例
            Document document = new Document();

            //載入原始 Word 檔案
            document.LoadFromFile("檔案1.docx", FileFormat.Docx);

            //插入另一個 Word 檔案到原檔案中
            document.InsertTextFromFile("檔案2.docx", FileFormat.Docx);

            //儲存結果檔案
            document.SaveToFile("合併Word檔案.docx", FileFormat.Docx);
        }
    }
}

Imports Spire.Doc

Namespace MergeWord
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '建立一個Document範例
            Dim document As Document = New Document()

            '載入原始 Word 檔案
            document.LoadFromFile("檔案1.docx", FileFormat.Docx)

            '插入另一個 Word 檔案到原檔案中
            document.InsertTextFromFile("檔案2.docx", FileFormat.Docx)

            '儲存結果檔案
            document.SaveToFile("合併Word檔案.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace

using Spire.Doc;

namespace MergeWord
{
    class Program
    {
        static void Main(string[] args)
        {
            //載入兩個 Word 檔案
            Document doc1 = new Document("檔案1.docx");
            Document doc2 = new Document("檔案2.docx");

            //迴圈遍歷第二個檔案以獲取所有節
            foreach (Section section in doc2.Sections)
            {

                //遍歷第二個檔案的各個節以獲取它們的子物件
                foreach (DocumentObject obj in section.Body.ChildObjects)
                {

                    //獲取第一個檔案的最後一節
                    Section lastSection = doc1.LastSection;

                    //將所有子物件新增到第一個檔案的最後一節
                    lastSection.Body.ChildObjects.Add(obj.Clone());
                }
            }

            //儲存結果檔案
            doc1.SaveToFile("合併檔案.docx", FileFormat.Docx);
        }
    }
}

Imports Spire.Doc

Namespace MergeWord
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '載入兩個 Word 檔案
            Dim doc1 As Document = New Document("檔案1.docx")
            Dim doc2 As Document = New Document("檔案2.docx")

            '迴圈遍歷第二個檔案以獲取所有節
            For Each section As Section In doc2.Sections

                '遍歷第二個檔案的各個節以獲取它們的子物件
                For Each obj As DocumentObject In section.Body.ChildObjects

                    '獲取第一個檔案的最後一節
                    Dim lastSection As Section = doc1.LastSection

                    '將所有子物件新增到第一個檔案的最後一節
                    lastSection.Body.ChildObjects.Add(obj.Clone())
                Next
            Next

            '儲存結果檔案
            doc1.SaveToFile("合併檔案.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace