Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用vb.net在word中添加超链接_Vb.net_Hyperlink_Word 2010 - Fatal编程技术网

使用vb.net在word中添加超链接

使用vb.net在word中添加超链接,vb.net,hyperlink,word-2010,Vb.net,Hyperlink,Word 2010,我目前正试图通过VB程序在word中将超链接添加到web url。我正跌跌撞撞地试图找到正确的语法以及实现这一点所需的内容,因为我已经得到了许多毫无帮助的VBA示例,这根本不是我所需要的 我的代码如下所示: sPara2 = oDoc.Content.Paragraphs.Add sPara2.Range.Text = attachmentRdr("attachmentName") sPara2.Range.Hyperlinks.Add(attachmentRdr("attachmentPath

我目前正试图通过VB程序在word中将超链接添加到web url。我正跌跌撞撞地试图找到正确的语法以及实现这一点所需的内容,因为我已经得到了许多毫无帮助的VBA示例,这根本不是我所需要的

我的代码如下所示:

sPara2 = oDoc.Content.Paragraphs.Add
sPara2.Range.Text = attachmentRdr("attachmentName")
sPara2.Range.Hyperlinks.Add(attachmentRdr("attachmentPath"))
sPara2.Format.SpaceAfter = 24    '24 pt spacing after paragraph.
sPara2.Range.InsertParagraphAfter()

其中,
attachmentRdr
是从数据库读取文本字符串(附件名称和路径)的
sqlDatareader
。如果我运行此操作,我会得到一个错误的参数(从
超链接.add()
中“处理掉”)。

将范围作为第一个参数传递给add函数,然后是URL:

Dim range As Microsoft.Office.Interop.Word.Range
range = Me.Application.Selection.Range
range.Hyperlinks.Add(range, "http://www.microsoft.com")