''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.Globalization
Imports GrapeCity.Documents.Word
Imports GrapeCity.Documents.Word.Fields

'' This sample shows how to add an AUTONUM (Automatic Numbering) field to a Word document,
'' and specify its options.
Public Class AutoNumFieldOpts
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()

        Dim options = New AutoNumFieldOptions(doc)

        Dim p As Paragraph = doc.Body.AddParagraph("Heading 1", doc.Styles(BuiltInStyleId.Heading1))
        p.GetRange().ComplexFields.Insert(options, InsertLocation.Start)

        p = doc.Body.AddParagraph("Heading 2", doc.Styles(BuiltInStyleId.Heading2))
        p.GetRange().ComplexFields.Insert(options, InsertLocation.Start)

        p = doc.Body.AddParagraph("Heading 2", doc.Styles(BuiltInStyleId.Heading2))
        p.GetRange().ComplexFields.Insert(options, InsertLocation.Start)

        p = doc.Body.AddParagraph("Heading 3", doc.Styles(BuiltInStyleId.Heading3))
        p.GetRange().ComplexFields.Insert(options, InsertLocation.Start)

        p = doc.Body.AddParagraph("Heading 3", doc.Styles(BuiltInStyleId.Heading3))
        p.GetRange().ComplexFields.Insert(options, InsertLocation.Start)

        p = doc.Body.AddParagraph("Heading 1", doc.Styles(BuiltInStyleId.Heading1))
        p.GetRange().ComplexFields.Insert(options, InsertLocation.Start)

        p = doc.Body.AddParagraph("Heading 2", doc.Styles(BuiltInStyleId.Heading2))
        p.GetRange().ComplexFields.Insert(options, InsertLocation.Start)

        doc.UpdateFields(New GrapeCity.Documents.Word.Layout.WordLayoutSettings() With {
            .FontCollection = Util.FontCollection,
            .Culture = CultureInfo.GetCultureInfo("en-US")
        })

        Return doc
    End Function
End Class