'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports GrapeCity.Documents.Word
'' This sample shows how to merge two DOCX files into one.Public Class MergeDocs    Public Function CreateDocx() As GcWordDocument        Dim doc1 = New GcWordDocument()        doc1.Load(Path.Combine("Resources", "WordDocs", "SampleParagraphs.docx"))
        Dim doc2 = New GcWordDocument()        doc2.Load(Path.Combine("Resources", "WordDocs", "BuiltInStyles.docx"))
        '' Static MergeDocuments() method overloads allow to merge any number of documents.        '' Internally, those methods call the Body.CopyTo() method on each of the documents        '' being merged, so the same results can be achieved using CopyTo().        '' The different overloads allow to merge documents with full formatting,        '' without formatting, Or using combinations of both.        '' Here we demonstrate the most flexible MergeDocuments() overload by merging the        '' two loaded documents twice, first copying their original formatting, And then        '' clearing it        Dim doc = GcWordDocument.MergeDocuments(            (doc1, FormattingCopyStrategy.Copy),            (doc2, FormattingCopyStrategy.Copy),            (doc1, FormattingCopyStrategy.Clear),            (doc2, FormattingCopyStrategy.Clear))
        '' Done        Return doc    End FunctionEnd Class