'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.GlobalizationImports GrapeCity.Documents.Word
'' This example shows how to use the 'rbb' ('run-block-behavior') formatter'' to print the data items of a list within a single paragraph rather than'' as a list of paragraphs.Public Class DataTplRunBlockBehavior    Function CreateDocx() As GcWordDocument        Using oceans = File.OpenRead(Path.Combine("Resources", "data", "oceans.json"))            Dim doc = New GcWordDocument()            doc.DataTemplate.DataSources.Add("ds", oceans)
            '' Add a list for oceans, and a run for seas:            Dim p = doc.Body.Paragraphs.Add("{{#ds}}{{ds.name}} ocean: ", doc.Styles(BuiltInStyleId.ListParagraph))            Dim myListTemplate = doc.ListTemplates.Add(BuiltInListTemplateId.BulletDefault, "myListTemplate")            p.ListFormat.Template = myListTemplate
            '' The 'rbb' ('run-block-behavior') formatter forces the range to be expanded            '' within the current paragraph, each data item generating a run rather than a paragraph:            doc.Body.Paragraphs.First.GetRange().Runs.Add("{{#ds.seas}:rbb()}{{ds.seas.name}}; {{/ds.seas}}")
            '' Close the parent range '#ds':            doc.Body.Paragraphs.First.GetRange().Runs.Add("{{/ds}}")
            '' Process the template:            doc.DataTemplate.Process(CultureInfo.GetCultureInfo("en-US"))
            Return doc        End Using    End FunctionEnd Class