超链接

可以在Word文档中增加超链接。

示例代码:

Dim wdc As New WordCreator
'
直接增加的超链接,无法进行更多的设置:
wdc.AddParagraph(
New Word.Objects.RtfString("第一个超链接:"))
wdc.AddLink(
"http://www.foxtable.com/").ForeColor = Color.Red
'
通过RtfHyperlink增加超链接,可以进行更多的设置:
wdc.AddParagraph(
New Word.Objects.RtfString("第二个超链接:"))
Dim
lnk As New Word.Objects.RtfHyperlink("http://www.foxtable.com/") '链接地址
lnk.Underline = Word.RtfUnderlineStyle.Single
'显示下划线
lnk.ForeColor = Color.Red
'字体颜色
lnk.Content.Add(
New Word.Objects.RtfString("按住Ctrl后单击访问Foxtable网站")) '链接显示的文本,你可以用任何对象代替,例如图片
wdc.Add(lnk)

Dim
fl As String = "c:\temp\test.docx"
wdc.Save(fl)
Process.Start(fl)

生成的文档为:


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