'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.GlobalizationImports GrapeCity.Documents.WordImports GrapeCity.Documents.Word.Fields
'' This sample shows how to add a LISTNUM (List Number) field to a Word document,'' and specify its options.Public Class ListNumFieldOpts    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()
        Dim listName As String = "MyList"        doc.ListTemplates.Add(BuiltInListTemplateId.OutlineLegal, listName)
        Dim options = New ListNumFieldOptions(doc) With {            .Name = listName,            .Level = 1        }
        Dim table As Table = doc.Body.AddTable(            New String()() {                New String() {"Step", "Description"},                New String() {Nothing, "Open the Settings menu."},                New String() {Nothing, "Select ""Preferences"" from the list."},                New String() {Nothing, "Click ""Save"" to apply changes."}            }, doc.Styles(BuiltInStyleId.GridTable1Light))
        table.Format.StyleOptions = table.Format.StyleOptions Or TableStyleOptions.FirstRow
        table(1, 0).GetRange().Paragraphs.First.GetRange().ComplexFields.Add(options)        table(2, 0).GetRange().Paragraphs.First.GetRange().ComplexFields.Add(options)        table(3, 0).GetRange().Paragraphs.First.GetRange().ComplexFields.Add(options)
        doc.UpdateFields(New GrapeCity.Documents.Word.Layout.WordLayoutSettings() With {            .FontCollection = Util.FontCollection,            .Culture = CultureInfo.GetCultureInfo("en-US")        })
        Return doc    End FunctionEnd Class