'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports System.LinqImports GrapeCity.Documents.Word
'' This sample shows how to insert the whole body of an existing DOCX into '' another document at a location where an arbitrary search string is found.'' One interesting point in this sample is that the code ensures that the'' insert position is valid, i.e. the source content (all paragraphs of'' the source document) can be inserted at the found point. If necessary,'' the target is split so that there is a content object of a valid type'' at the point where the source is to be inserted.'' In this sample, the target document is JsFrameworkExcerpt.'' The source document inserted is SampleParagraphs, and it is inserted'' on page 2 of the source document, immediately before the string'' "software design principles".Public Class InsertAtFound    Public Function CreateDocx() As GcWordDocument        '' The string to find. The source document will be inserted before this string        Const findPattern = "software design principles"
        '' Target document where the source document will be inserted:        Dim doc = New GcWordDocument()        doc.Load(Path.Combine("Resources", "WordDocs", "JsFrameworkExcerpt.docx"))
        '' Source document that will be inserted into the target:        Dim sourceDoc = New GcWordDocument()        sourceDoc.Load(Path.Combine("Resources", "WordDocs", "SampleParagraphs.docx"))        '' Note: the inserted document starts with a 'Heading 1', which adds a page break.        '' We change it to 'Heading 2' to avoid this so that the result is more clear:        sourceDoc.Body.Paragraphs.First.Style = sourceDoc.Styles(BuiltInStyleId.Heading2)
        '' Find the first occurrence of the search string:        Dim findResult = doc.Body.Find(findPattern, New FindOptions(doc) With {.IgnoreCase = True}).FirstOrDefault()        If findResult Is Nothing Then            Throw New Exception("Unexpected: search string not found.")        End If
        '' Find a valid insertion point near the found string:        Dim insertObject = CreateInsertPoint(findResult)
        '' Copy the source document to the target at insertion point        sourceDoc.Body.CopyTo(insertObject.GetRange(), InsertLocation.Before)
        '' Done        Return doc    End Function

    '' Walk up the parent chain And determine where we are - inside body, cell Or contentcontrol.    '' Return the original object if we are inside body Or cell.    '' Return contentcontrol if we are inside contentcontrol.    Private Shared Function GetAnchorObject(testedObject As ContentObject) As ContentObject        Dim originalObject = testedObject        While True            If testedObject.ParentContent Is Nothing Then                Return originalObject            ElseIf TypeOf testedObject Is Cell Then                Return originalObject            ElseIf TypeOf testedObject Is ContentControl Then                Return testedObject            Else                testedObject = testedObject.ParentContent            End If        End While        Return Nothing    End Function
    '' This method assumes that testObject Is always an entity inside a paragraph.    Private Shared Function GetParentParagraph(testObject As ContentObject) As Paragraph        While testObject IsNot Nothing            If TypeOf testObject Is Paragraph Then                Return CType(testObject, Paragraph)            End If            testObject = testObject.ParentContent        End While        Throw New ArgumentException("testObject is not inside a paragraph.")    End Function
    Private Shared Function CreateInsertPoint(fr As FindResult) As ContentObject        Dim anchorObject = GetAnchorObject(fr.Range.First())        Dim foundParagraph = GetParentParagraph(anchorObject)
        If fr.StartIndex > 0 AndAlso TypeOf anchorObject Is Text Then            anchorObject = CType(anchorObject, Text).Split(fr.StartIndex)        End If        If foundParagraph Is anchorObject Then            anchorObject = foundParagraph.Split(anchorObject, InsertLocation.End)        Else            anchorObject = foundParagraph.Split(anchorObject, InsertLocation.Before)        End If        Return anchorObject    End FunctionEnd Class