'''' 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 use the INDEX and XE field options'' to add an index to a DOCX Word document.Public Class IndexFieldOpts    Private Shared s_indexWords As String() = {        "lorem", "ipsum", "dolor", "sit", "amet", "consectetur", "adipiscing", "elit", "mauris", "id", "volutpat",        "tellus", "ullamcorper", "sem", "praesent", "et", "ante", "laoreet", "lobortis", "nunc", "congue"    }
    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()
        Const NPARS As Integer = 30        For i As Integer = 0 To NPARS - 1            Dim par = doc.Body.Paragraphs.Add()            Dim txt = Util.LoremIpsumPar()
            Dim words = txt.Split(New Char() {" "c, ","c, "."c}, 2)            If words.Length <> 2 Then                Throw New Exception("Unexpected")            End If
            Dim word = words(0)            Dim xe = New XeFieldOptions(doc)            xe.Entry.Content.Text = word            par.AddComplexField(xe)            par.AddRun(txt)        Next        doc.Body.Paragraphs.Last.AddSectionBreak()        Dim p = doc.Body.Paragraphs.Add(doc.Styles(BuiltInStyleId.Index1))        Dim index = New IndexFieldOptions(doc)        index.Columns = 2        index.Heading = "A"        Dim field As ComplexField = p.AddComplexField(index)
        field.Update(New GrapeCity.Documents.Word.Layout.WordLayoutSettings() With {            .FontCollection = Util.FontCollection,            .Culture = CultureInfo.GetCultureInfo("en-US")        })
        Return doc    End FunctionEnd Class