'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.LinqImports GrapeCity.Documents.Word
'' Demo of all built-in table stylesPublic Class BuiltInTableStyles    Public 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 In [Enum].GetValues(GetType(BuiltInStyleId))            If id = BuiltInStyleId.User Then                Continue For            End If            Dim style = doc.Styles(id)            If style.Type <> StyleType.Table Then                Continue For            End If
            pars.Add($"The following table is formatted using style '{style.Name}':")            Dim table = doc.Body.Tables.Add(cols, rows, style)            For row = 0 To rows - 1                For col = 0 To cols - 1                    table.Rows(row).Cells(col).GetRange().Paragraphs.First.GetRange().Runs.Add($"Cell ({row},{col})")                Next            Next        Next
        '' Done:        Return doc    End FunctionEnd Class