Using fs As New FileStream("FileName.pdf", FileMode.Open, FileAccess.Read)

　　' 読み込み
　　Dim doc As New GcPdfDocument()
　　doc.Load(fs)

　　' 結合オプション
　　Dim options As New MergeDocumentOptions()

　　' 1ページずつ分割する
　　For i As Integer = 1 To doc.Pages.Count
　　　　options.PagesRange = New GrapeCity.Documents.Common.OutputRange(i, i)

　　　　Dim separateDoc As New GcPdfDocument()
　　　　separateDoc.MergeWithDocument(doc, options)
　　　　separateDoc.Save(String.Format("Page{0}.pdf", i))
　　Next

End Using

using (var fs = new FileStream("FileName.pdf", FileMode.Open, FileAccess.Read))
{
　　// 読み込み
　　var doc = new GcPdfDocument();
　　doc.Load(fs);

　　// 結合オプション
　　var options = new MergeDocumentOptions();

　　// 1ページずつ分割する
　　for (int i = 1; i <= doc.Pages.Count; i++)
　　{
　　　　options.PagesRange = new GrapeCity.Documents.Common.OutputRange(i, i);

　　　　var separateDoc = new GcPdfDocument();
　　　　separateDoc.MergeWithDocument(doc, options);
　　　　separateDoc.Save(String.Format("Page{0}.pdf", i));
　　}
}