使用书签
下面是一个使用书签的简单示例,可以在命令窗口测试执行:
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)
生成的文档为: