文本格式

段落中的文本可以有多种格式，例如：

RtfString表示带格式的文本，要生成上面的Word文档， 可以按顺序增肌多个RtfString并设置格式，参考代码 如下：

Dim wdc As New WordCreator()
Dim prg As New Word.Objects.RtfParagraph() '定义段落
wdc.Add(prg) '将段落添加到文档中
Dim fnt As New Font("幼圆", 12)
Dim str As New Word.Objects.RtfString("Foxtable", fnt, Word.RtfUnderlineStyle.Single) '定义第一个文本,有下划线
prg.Add(str) '将第一个文本添加到段落中
str = New Word.Objects.RtfString(" 2024 ", fnt) '定义第二个文本
str.BackColor = Color.Red '红底
str.ForeColor = Color.White '白字
prg.Add(str) '将第二个文本添加到段落中
prg.Add(New Word.Objects.RtfString("即将发布，有四个重大更新！", fnt)) '直接添加第三个文本到段落中
prg.Add(New word.Objects.RtfLineBreak()) '另起一行
prg.Add(New word.Objects.RtfLineBreak()) '再另起一行，等于增加一个空行
prg.Add(New Word.Objects.RtfString("A", fnt)) '直接添加第四个文本到段落中
str = New Word.Objects.RtfString("2", fnt) '定义第五个文本
str.Superscript = True '第五个文本为上标
prg.Add(str) '将第五个文本添加到段落中
prg.Add(New Word.Objects.RtfString(" + B", fnt)) '直接添加第六个文本到段落中
str = New Word.Objects.RtfString("2", fnt) '定义第七个文本
str.Superscript = True '第七个文本文上标
prg.Add(str) '将第七个文本添加到段落中
prg.Add(New Word.Objects.RtfString(" = C", fnt)) '直接添加第八个文本到段落中
str = New Word.Objects.RtfString("2", fnt) '定义第九个文本
str.Superscript = True '第九个文本为上标
prg.Add(str) '将第九个文本添加到段落中
Dim fl As String = "c:\temp\test.docx"
wdc.Save(fl)
Process.Start(fl)

代码比较长，但并不复杂，只是先后定义了九个有不同格式的RtfString对象，顺序添加到段落(RtfParagraph)中。

RtfString

RtfString表示带格式的文本，其主要属性有：