''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System
Imports System.IO
Imports System.Collections.Generic
Imports System.Linq
Imports System.Drawing
Imports GrapeCity.Documents.Word

'' This sample loads an existing DOCX And modifies
'' some of the built-in styles.
Public Class ModifyFormat
    Public Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()

        '' Load an existing DOCX file
        Dim path = System.IO.Path.Combine("Resources", "WordDocs", "JsFrameworkExcerpt.docx")
        doc.Load(path)

        '' Modify the title And sub-title styles
        doc.Styles(BuiltInStyleId.Title).ParagraphFormat.Shading.BackgroundPatternColor.RGB = Color.PaleGoldenrod
        doc.Styles(BuiltInStyleId.Title).Font.Color.RGB = Color.OrangeRed

        doc.Styles(BuiltInStyleId.Subtitle).Font.Color.RGB = Color.MediumVioletRed
        doc.Styles(BuiltInStyleId.Subtitle).Font.Italic = True

        '' Modify the top 4 heading styles
        Dim headings As New List(Of Style) From
        {
            doc.Styles(BuiltInStyleId.Heading1),
            doc.Styles(BuiltInStyleId.Heading2),
            doc.Styles(BuiltInStyleId.Heading3),
            doc.Styles(BuiltInStyleId.Heading4)
        }
        For Each heading In headings
            heading.Font.Color.RGB = Color.Blue
            heading.Font.Bold = True
            heading.Font.Italic = True
        Next

        '' Done
        Return doc
    End Function
End Class