'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.DrawingImports System.LinqImports GrapeCity.Documents.Word
Public Class CopyKeepSource    Function CreateDocx() As GcWordDocument        Const styleName As String = "X-style"
        Dim doc = New GcWordDocument()
        Dim xStyleTgt = doc.Styles.Add(styleName, StyleType.Paragraph)        xStyleTgt.Font.Color.RGB = Color.Blue        xStyleTgt.Font.Bold = True        xStyleTgt.ParagraphFormat.Indentation.RightIndent += 72        Dim textTgt = $"This paragraph in the target document " &            $"is associated with a custom paragraph style named ""{styleName}"". " &            $"That style specifies the font to be blue and bold, and the whole paragraph " &            $"is indented by 1"" on the right."        doc.Body.Paragraphs.Add(textTgt, doc.Styles(styleName))
        Dim docSrc = New GcWordDocument()        Dim xStyleSrc = docSrc.Styles.Add(styleName, StyleType.Paragraph)        xStyleSrc.Font.Color.RGB = Color.Red        xStyleSrc.Font.Italic = True        xStyleSrc.ParagraphFormat.Alignment = ParagraphAlignment.Right        xStyleSrc.ParagraphFormat.Indentation.LeftIndent += 72        Dim textSrc = "This paragraph is copied from the source to the target DOCX. " &            $"In the source DOCX, this paragraph was associated with a custom style also named ""{styleName}"". " &            $"That style specifies the font to be red and italic, the whole paragraph is right-aligned " &            $"and indented 1"" from the left. " &            $"Due to a conflict with the same-named but different style in the target document " &            $"its name is changed to ""{styleName}1""."        Dim paraSrc = docSrc.Body.Paragraphs.Add(textSrc, docSrc.Styles(styleName))
        paraSrc.GetRange().CopyTo(doc.Body, InsertLocation.End, FormattingCopyStrategy.KeepSource)
        Return doc    End FunctionEnd Class