''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS 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.Paragraphs
        For i = 1 To 1000
            pars.Add(LoremIpsumPar())
        Next
        Return doc
    End Function
End Class