使用书签

下面是一个使用书签的简单示例,可以在命令窗口测试执行:

Dim wdc As New WordCreator
wdc.AddParagraph(
New Word.Objects.RtfString("书签演示:"))
Dim
lnk As New Word.Objects.RtfHyperlink("书签名称") '超链接定制可以是书签名称。
lnk.Content.Add(
New Word.Objects.RtfString("按住Ctrl后单击可跳转到第二页")) '链接显示的文本,你可以用任何对象代替,例如图片
wdc.Add(lnk)
wdc.PageBreak()
'换页
wdc.AddBookmark(
"书签名称") '增加书签,这里定义的书签名称必须前面超链接使用的名称一致
wdc.AddParagraph(
New Word.Objects.RtfString("这里是第二页"))
Dim
fl As String = "c:\temp\test.docx"
wdc.Save(fl)
Process.Start(fl)

生成的文档为:


本页地址:http://www.foxtable.com/webhelp/topics/6053.htm