超链接
可以在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)
生成的文档为: