'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.LinqImports GrapeCity.Documents.Word
'' This sample shows how to copy or move ranges within a document,'' or between documents, using the RangeBase.CopyTo()/MoveTo() methods.'''' The original SampleParagraphs.docx used in this sample can be'' seen by running the SampleParagraphs sample.Public Class RangeCopyMove    Public Function CreateDocx() As GcWordDocument        Const p1start = "This is the first paragraph of the original document"        Const p2start = "This is the second paragraph of the original document"        Const p3start = "This is the third paragraph of the original document"        Const p4start = "This is the fourth paragraph of the original document"
        '' Load the sample DOCX file (see SampleParagraphs) into a GcWordDocument instance:        Dim srcDoc = New GcWordDocument()        srcDoc.Load(Path.Combine("Resources", "WordDocs", "SampleParagraphs.docx"))
        '' Get the range of paragraphs to copy:        Dim srcRng = srcDoc.Body.GetPersistentRange(srcDoc.Body.Paragraphs(2), srcDoc.Body.Paragraphs.Last)
        '' We use another document here to demonstrate that CopyTo()/MoveTo() methods        '' can be used to copy/move content between documents:        Dim doc = New GcWordDocument()        srcRng.CopyTo(doc.Body, InsertLocation.Start)
        '' Find individual paragraphs inside the new document to manipulate:        Dim p1 As Paragraph = Nothing, p2 As Paragraph = Nothing, p3 As Paragraph = Nothing, p4 As Paragraph = Nothing        For Each p In doc.Body.Paragraphs            Dim t = p.GetRange().Text            If t.StartsWith(p1start) Then                p1 = p            ElseIf t.StartsWith(p2start) Then                p2 = p            ElseIf t.StartsWith(p3start) Then                p3 = p            ElseIf t.StartsWith(p4start) Then                p4 = p            End If        Next        If p1 Is Nothing OrElse p2 Is Nothing OrElse p3 Is Nothing OrElse p4 Is Nothing Then            Throw New Exception("Unexpected: could not find paragraphs.")        End If
        '' Move first paragraph to the end of the document with default formatting option        '' (preserve formatting):        p1.GetRange().MoveTo(doc.Body, InsertLocation.End)
        '' Move second paragraph to the end of the document, clearing formatting:        p2.GetRange().MoveTo(doc.Body, InsertLocation.End, FormattingCopyStrategy.Clear)
        '' Copy third paragraph to the end of the document, clearing formatting:        p3.GetRange().CopyTo(doc.Body, InsertLocation.End, FormattingCopyStrategy.Clear)
        '' Add a note at the end of the document:        doc.Body.Sections.Last.GetRange().Paragraphs.Add($"Created by DsWord on {Util.TimeNow():R}.")
        '' Done:        Return doc    End FunctionEnd Class