'''' 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 lists all built-in styles available in DsWord.Public Class ListBuiltInStyles    Public Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        Dim pars = doc.Body.Paragraphs
        pars.Add("List of All Built-in Styles", doc.Styles(BuiltInStyleId.Title))
        '' List all built-in style names and types.        '' Note that BuiltInStyleId.User is a special case that is not associated        '' with any built-in style. This value is returned by the Style.BuiltInId        '' property for user-defined styles, but cannot be used as an index        '' on the Styles collection (an exception will occur):        For Each id In [Enum].GetValues(GetType(BuiltInStyleId))            If id <> BuiltInStyleId.User Then                pars.Add($"Style name '{doc.Styles(id).Name}', type: '{doc.Styles(id).Type}'.")            End If        Next
        '' Done:        Return doc    End FunctionEnd Class