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

Public Class BuiltInTableStylesHelpers
    Function CreateDocx() As GcWordDocument
        Dim rows = 3
        Dim cols = 4

        Dim doc = New GcWordDocument()
        Dim pars = doc.Body.Paragraphs

        pars.Add("Demo of All Built-in Table Styles", doc.Styles(BuiltInStyleId.Title))

        For Each id As BuiltInStyleId In System.Enum.GetValues(GetType(BuiltInStyleId))
            If id = BuiltInStyleId.User Then Continue For
            Dim style = doc.Styles(id)
            If style.Type <> StyleType.Table Then Continue For

            pars.Add($"The following table is formatted using style '{style.Name}':")
            Dim table = doc.Body.Tables.Add(cols, rows, style)
            For row As Integer = 0 To rows - 1
                For col As Integer = 0 To cols - 1
                    table.Rows(row).Cells(col).GetRange().Paragraphs.First.AddRun($"Cell ({row},{col})")
                Next
            Next
        Next

        Return doc
    End Function
End Class