'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.LinqImports GrapeCity.Documents.Word
'' This sample demonstrates how to use built-in styles'' to format a document.Public Class SomeCommonStyles    Public Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        Dim sec = doc.Body.Sections.First        Dim pars = sec.GetRange().Paragraphs
        '' Title:        pars.Add("Some Common Built-in Styles (Title)", doc.Styles(BuiltInStyleId.Title))
        '' Title:        pars.Add("Demonstration of some of the built-in styles. (Subtitle)", doc.Styles(BuiltInStyleId.Subtitle))
        '' Headings 1-4:        Dim heading1 = pars.Add("Heading 1", doc.Styles(BuiltInStyleId.Heading1))        Dim heading2 = pars.Add("Heading 2", doc.Styles(BuiltInStyleId.Heading2))        Dim heading3 = pars.Add("Heading 3", doc.Styles(BuiltInStyleId.Heading3))        Dim heading4 = pars.Add("Heading 4", doc.Styles(BuiltInStyleId.Heading4))
        '' Normal Text:        pars.Add("This and the following 'lorem impum' paragraph use the 'Normal' style.")        pars.Add(SmallPara())
        '' Quote:        pars.Add("The next paragraph uses the 'Quote' style:")        Dim p = pars.Add(SmallPara(), doc.Styles(BuiltInStyleId.Quote))        p.Style.ParagraphFormat.KeepTogether = True
        '' Intense Quote:        pars.Add("The next paragraph uses the 'Intense Quote' style:")        p = pars.Add(SmallPara(), doc.Styles(BuiltInStyleId.IntenseQuote))        p.Style.ParagraphFormat.KeepTogether = True
        '' Intense Quote:        pars.Add("The next paragraph uses the 'List Paragraph' style:")        p = pars.Add(SmallPara(), doc.Styles(BuiltInStyleId.ListParagraph))        p.Style.ParagraphFormat.KeepTogether = True
        '' Character styles:        p = pars.Add("In this paragraph we demonstrate some of the built-in character styles. ")        Dim runs = p.GetRange().Runs        runs.Add("This run uses the 'Strong' style. ", doc.Styles(BuiltInStyleId.Strong))        runs.Add("A run of normal text. ")        runs.Add("This run uses 'Emphasis' style. ", doc.Styles(BuiltInStyleId.Emphasis))        runs.Add("A run of normal text. ")        runs.Add("This run uses 'Intense Emphasis' style. ", doc.Styles(BuiltInStyleId.IntenseEmphasis))        runs.Add("A run of normal text. ")        runs.Add("This run uses 'Subtle Emphasis' style. ", doc.Styles(BuiltInStyleId.SubtleEmphasis))
        pars.Add("The End.")
        '' Done:        Return doc    End Function
    Private Function SmallPara() As String        Return Util.LoremIpsumPar(2, 3, 4, 5)    End FunctionEnd Class