'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.DrawingImports System.IOImports GrapeCity.Documents.Word
'' This sample demonstrates how to use theme colors'' to change how a document looks.Public Class ThemeColors    Public Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        Dim pth = Path.Combine("Resources", "WordDocs", "BuiltInStyles.docx")        doc.Load(pth)
        doc.Settings.GetThemeColor(ThemeColorId.Text1).RGB = Color.Blue        doc.Settings.GetThemeColor(ThemeColorId.Accent1).RGB = Color.Red        doc.Settings.GetThemeColor(ThemeColorId.Accent2).RGB = Color.OrangeRed        doc.Settings.GetThemeColor(ThemeColorId.Accent3).RGB = Color.Orange
        '' Done        Return doc    End FunctionEnd Class