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

'' 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 Function
End Class