Shared rnd As New Random()
Shared _extension As String = ".rtf"
                        

' ドキュメントを作成します
Dim word = New C1WordDocument()
word.Clear()
word.Info.Title = "Document with Table of Contents"

' タイトルを追加します
Dim titleFont As New Font("Tahoma", 24, RtfFontStyle.Bold)
Dim rcPage As Rect = WordUtils.PageRectangle(word)
Dim rc As Rect = WordUtils.RenderParagraph(word, word.Info.Title, 
              _titleFont, rcPage, rcPage, False)
rc.Y += 12

' ナンセンス文書を作成します
Dim bkmk = New List()
Dim headerFont As New Font("Arial", 14, RtfFontStyle.Bold)
Dim bodyFont As New Font("Times New Roman", 11)
For i As Integer = 0 To 29
        ' i番目のヘッダを作成します（リンク先とアウトラインエントリとして）
        Dim header As String = String.Format("{0}. {1}", i + 1, BuildRandomTitle())
        rc = WordUtils.RenderParagraph(word, header, headerFont, rcPage, rc, True, _
                True)

        ' 後で TOC を構築するためにブックマークを保存します
        Dim pageNumber As Integer = 1
        bkmk.Add(New String() {pageNumber.ToString(), header})

        ' テキストを作成します
        rc.X += 36
        rc.Width -= 36

        For j As Integer = 0 To 3 + (rnd.[Next](20) - 1)
                Dim text As String = BuildRandomParagraph()
                rc = WordUtils.RenderParagraph(word, text, bodyFont, rcPage, rc)
                rc.Y += 6
        Next
        rc.X -= 36
        rc.Width += 36
        rc.Y += 20
Next

' TOC を開始します
word.PageBreak()
' 新しいページで TOC を開始します
rc = WordUtils.RenderParagraph(word, "WPFのコントロール", titleFont, rcPage, rcPage, True)
rc.Y += 12
rc.X += 30
rc.Width -= 40

' TOC をレンダリングします
Dim dottedPen As New C1.WPF.Word.Pen(Colors.Gray, 1.5F)
dottedPen.DashStyle = C1.WPF.Word.DashStyle.Dot
Dim sfRight As New StringFormat()
sfRight.Alignment = HorizontalAlignment.Right
rc.Height = bodyFont.Size * 1.2

For Each entry As String() In bkmk
        ' ブックマーク情報を取得します
        Dim page As String = entry(0)
        Dim header As String = entry(1)

        ' 見出し名とページ番号をレンダリングします
        word.DrawString(header, bodyFont, Colors.Black, rc)
        word.DrawString(page, bodyFont, Colors.Black, rc, sfRight)


        ' 2つをいくつかの点で結びます（点線よりも見やすい）
        Dim dots As String = ". "
        Dim wid = word.MeasureString(dots, bodyFont).Width
        Dim x1 = rc.X + word.MeasureString(header, bodyFont).Width + 8
        Dim x2 = rc.Right - word.MeasureString(page, bodyFont).Width - 8
        Dim x = rc.X
        rc.X = x1
        While rc.X < x2
                word.DrawString(dots, bodyFont, Colors.Gray, rc)
                rc.X += wid
        End While
        rc.X = x

        ' 次のエントリに移動します
        rc = WordUtils.Offset(rc, 0, rc.Height)
        If rc.Bottom > rcPage.Bottom Then
                word.PageBreak()
                rc.Y = rcPage.Y
        End If
Next

' 保存するストリームを取得します
Dim dlg = New SaveFileDialog()
dlg.FileName = "Sample document"
dlg.DefaultExt = ".docx"
dlg.Filter = WordUtils.GetFileFilter(_extension)
Dim dr = dlg.ShowDialog()
If Not dr.HasValue OrElse Not dr.Value Then
        Return
End If

' 文書を保存します
Using stream = dlg.OpenFile()
        word.Save(stream, If(dlg.FileName.ToLower().EndsWith(".docx"), 
_FileFormat.OpenXml, FileFormat.Rtf))
End Using
MessageBox.Show("Word Document saved to " + dlg.SafeFileName)

Private Shared Function BuildRandomTitle() As String
    Dim a1 As String() = "Learning|Explaining|Mastering|Forgetting|Examining|Understanding|Applying|Using|Destroying".Split("|"C)
    Dim a2 As String() = "Music|Tennis|Golf|Zen|Diving|Modern Art|Gardening|Architecture|Mathematics|Investments|.NET|Java".Split("|"C)
    Dim a3 As String() = "Quickly|Painlessly|The Hard Way|Slowly|Painfully|With Panache".Split("|"C)
    Return String.Format("{0} {1} {2}", a1(rnd.[Next](a1.Length - 1)), a2(rnd.[Next](a2.Length - 1)), a3(rnd.[Next](a3.Length - 1)))
End Function

Private Shared Function BuildRandomParagraph() As String
    Dim sb As New StringBuilder()
    For i As Integer = 0 To 5 + (rnd.[Next](10) - 1)
          sb.AppendFormat(BuildRandomSentence())
    Next
    Return sb.ToString()
End Function

Private Shared Function BuildRandomSentence() As String
    Dim a1 As String() = "Artists|Movie stars|Musicians|Politicians|Computer programmers|Modern thinkers|Gardeners|Experts|Some people|Hockey players".Split("|"C)
    Dim a2 As String() = "know|seem to think about|care about|often discuss|dream about|hate|love|despise|respect|long for|pay attention to|embrace".Split("|"C)
    Dim a3 As String() = "the movies|chicken soup|tea|many things|sushi|my car|deep thoughs|tasteless jokes|vaporware|cell phones|hot dogs|ballgames".Split("|"C)
    Dim a4 As String() = "incessantly|too much|easily|without reason|rapidly|sadly|randomly|vigorously|more than usual|with enthusiasm|shamelessly|on Tuesdays".Split("|"C)
    Return String.Format("{0} {1} {2} {3}. ", a1(rnd.[Next](a1.Length - 1)), a2(rnd.[Next](a2.Length - 1)), a3(rnd.[Next](a3.Length - 1)), a4(rnd.[Next](a4.Length - 1)))
End Function