'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.LinqImports System.GlobalizationImports GrapeCity.Documents.Word
'' This sample uses data templates to print a simple list of items'' from a hierarchical data source, uppercasing each item.Public Class DataTplSimpleList    Function CreateDocx() As GcWordDocument        '' The data source (ocean And sea data from Wikipedia):        Dim oceans =        {            New With {.name = "Pacific", .areaOfWorldOcean = 0.466, .volumeOfWorldOcean = 0.501, .seas =                {New With {.name = "Australasian Mediterranean Sea"}, New With {.name = "Philippine Sea"}, New With {.name = "Coral Sea"}, New With {.name = "South China Sea"}}},            New With {.name = "Atlantic", .areaOfWorldOcean = 0.235, .volumeOfWorldOcean = 0.233, .seas =                {New With {.name = "Sargasso Sea"}, New With {.name = "Caribbean Sea"}, New With {.name = "Mediterranean Sea"}, New With {.name = "Gulf of Guinea"}}},            New With {.name = "Indian", .areaOfWorldOcean = 0.195, .volumeOfWorldOcean = 0.198, .seas =                {New With {.name = "Arabian Sea"}, New With {.name = "Bay of Bengal"}, New With {.name = "Andaman Sea"}, New With {.name = "Laccadive Sea"}}},            New With {.name = "Southern", .areaOfWorldOcean = 0.061, .volumeOfWorldOcean = 0.054, .seas =                {New With {.name = "Weddell Sea"}, New With {.name = "Somov Sea"}, New With {.name = "Riiser-Larsen Sea"}, New With {.name = "Lazarev Sea"}}},            New With {.name = "Arctic", .areaOfWorldOcean = 0.043, .volumeOfWorldOcean = 0.014, .seas =                {New With {.name = "Barents Sea"}, New With {.name = "Greenland Sea"}, New With {.name = "East Siberian Sea"}, New With {.name = "Kara Sea"}}}        }
        Dim doc = New GcWordDocument()
        '' Add the data source to the data template data sources        '' (note that in this release, only one data source can be added):        doc.DataTemplate.DataSources.Add("ds", oceans)
        '' Add a list template so that the data Is formatted as a list:        Dim myListTemplate = doc.ListTemplates.Add(BuiltInListTemplateId.BulletDefault, "myListTemplate")
        '' The single paragraph added to the document contains template tags        '' - {{#ds}}..{{/ds}} -- root template, 'ds' is the name of the data source        '' - {ds.seas.name} -- fetches the sea name        '' - :toupper() -- uppercases the data:        Dim p = doc.Body.Paragraphs.Add("{{#ds}}{{ds.seas.name}:toupper()}{{/ds}}", doc.Styles(BuiltInStyleId.ListParagraph))        p.ListFormat.Template = myListTemplate
        '' This call expands all data templates in the document,        '' replacing template tags with data (iterating over all data items):        doc.DataTemplate.Process(CultureInfo.GetCultureInfo("en-US"))
        '' Done        Return doc    End FunctionEnd Class