增加分栏

WordCreater可以增加分栏。

例如分两栏显示文本：

Dim wdc As New WordCreator()
Dim txt As String
For i As Integer = 1 To 50
    txt = txt & "Foxtable不仅是一个优秀的应用软件，同时又是一个高效率的开发工具。"
Next
wdc.Columns.Add( New Word.Objects.RtfColumn) '增加两栏
wdc.Columns.Add( New Word.Objects.RtfColumn)
wdc.AddParagraph(txt, New Font("宋体", 9), color.Green).Alignment = Word.RtfHorizontalAlignment.Justify
Dim fl As String = "c:\temp\test.docx"
wdc.Save(fl)
Process.Start(fl)

生成的文档为：