利用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