'''' 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 PAGEREF field options to add'' and customize a reference to a page in the current document'' containing a specified bookmark.Public Class PageRefFieldOpts    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()
        Const bmkName As String = "myBookmark"
        Dim pgRefOpt = New PageRefFieldOptions(doc, bmkName)        pgRefOpt.NumberStyle = NumberStyle.UpperRoman        pgRefOpt.Hyperlink = True
        Dim p = doc.Body.AddParagraph("Go to page ", doc.Styles(BuiltInStyleId.IndexHeading)).AddComplexField(pgRefOpt)        p.GetRange().Runs.Add("...")
        Dim rnd = Util.NewRandom()        For i As Integer = 0 To rnd.Next(20, 25) - 1            doc.Body.AddParagraph(Util.LoremIpsumPar())        Next        doc.Body.AddParagraph("The end.").GetRange().Bookmarks.Add(bmkName)
        Dim phdr = doc.Body.Sections.First.Headers(HeaderFooterType.Primary).Body.AddParagraph(doc.Styles(BuiltInStyleId.Closing))        phdr.AddComplexField(New PageFieldOptions(doc) With {.NumberFormat = "'Page '0"})
        doc.UpdateFields(New GrapeCity.Documents.Word.Layout.WordLayoutSettings() With {            .FontCollection = Util.FontCollection,            .Culture = CultureInfo.GetCultureInfo("en-US")        })
        Return doc    End FunctionEnd Class