'''' 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 FunctionEnd Class