VB脚本添加超链接答案

【问题标题】：VB scripting Add hyperlinksVB脚本添加超链接
【发布时间】：2013-09-17 20:35:48
【问题描述】：

我想使用 VBscript 在 word 文档中添加几个超链接。

但我可以在每次覆盖前一个时在同一个位置添加超链接。

作者提供的代码

For TRow = 2 To Target_LastRow 
    ObjWord.ActiveDocument.Hyperlinks.Add 
    Anchor:=SAnchr, _ Address:=getExcelObj.Worksheets(2).Cells(TRow, 4).Value, _
      TextToDisplay:="Link" & (TRow - 1)

【问题讨论】：

这就是我的程序的样子。我可以在不同单元格的excel中添加超链接。但是无法在doc中一个接一个地添加超链接..
请展示一些您编写过的代码，以便我们提供帮助。
For TRow = 2 To Target_LastRow ObjWord.ActiveDocument.Hyperlinks.Add Anchor:=SAnchr, _ Address:=getExcelObj.Worksheets(2).Cells(TRow, 4).Value, _ TextToDisplay:= “链接”＆（TRow - 1）我正在循环通过一个excel文件来获取地址并将其添加到一个word文档中。但是随着循环的进行，上一个地址被最新的地址覆盖。如何更改锚点每次。
你会想要在上面显示代码，所以它很好并且格式化了。这次我给你改一下，感觉还是少了很多代码。

标签： vb.net

【解决方案1】：

这是我可以通过您提供的代码找到的。我希望这是一个开始。

ObjWord.ActiveDocument.Hyperlinks.Add(Anchor:=Ank, Address:=M, SubAddress:=SA, ScreenTip:=M, TextToDisplay:=M, Target:=M)

你可以简单一点，像这样放置它范围将是“A1-B2”或类似的东西

range.Hyperlinks.Add(range, "http://www.microsoft.com")

我也建议你关注This Link

来源1,2

更新

要添加到覆盖，您必须更改您选择的值来表示插入范围或区域。 我的直觉告诉我，这将是 anchor 变量

【讨论】：

相反，我在每次迭代中添加一个段落..这就解决了问题..(y)