LongDoc1.vb
''
'' This code is part of GrapeCity Documents for Word samples.
'' Copyright (c) GrapeCity, Inc. All rights reserved.
''
Imports GrapeCity.Documents.Word

'' In this sample, we load a 1000-paragraph document of Lorem Ipsum.
Public Class LongDoc1
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()
        Dim pars = doc.Body.Sections.First.GetRange().Paragraphs
        For i = 1 To 1000
            pars.Add(LoremIpsumPar())
        Next
        Return doc
    End Function
End Class