如何使用 VBA 从 Excel 单元格添加 Word 超链接 (hyperlink.add)

我想使用 Excel VBA 根据 Excel 单元格范围在 Word 文档中创建链接.但是当它到达 hyperlinks.add 行时，我得到 run-time error ‘450’: Wrong number of arguments or invalid property assignment".

I want to use Excel VBA to make links in a Word document based upon Excel cell ranges. But when it gets to the hyperlinks.add line I get "run-time error ‘450’: Wrong number of arguments or invalid property assignment".

几乎完全相同的代码在 Word VBA 中运行良好.我不明白错误信息.虽然我对 Excel VBA 非常熟悉，但 Word VBA 选择和范围让我感到困惑.

Almost the exact same code works fine in Word VBA. I don't understand the error message. While I'm quite familiar with Excel VBA, Word VBA selections and ranges confuse me.

我在下面使用字符串而不是范围制作了代码示例，在每种情况下，代码都会在 test.docx 文档的末尾成功插入文本，但 Word VBA 会在其下方插入带有链接的文本，Excel VBA 代码在 hyperlinks.add 行失败.

I made code examples below using strings instead of ranges, in each case the code inserts text successfully at the end of the test.docx document but while the Word VBA inserts text with a link below that, the Excel VBA code fails at the hyperlinks.add line.

这是不起作用的 Excel VBA 代码:

Here is the Excel VBA Code that is not working:

Sub wordLinkFromExcelRanges()
Dim wApp As Word.Application, wDoc As Word.Document
Dim linkText As String, link As String
  linkText = "google"
  link = "http://www.google.com"
  Set wApp = New Word.Application
  wApp.Visible = True
  Set wDoc = wApp.Documents.Open("C:\test\test.docx")
  With wApp.Selection
    .EndKey 6, 0 'go to end of doc
    .TypeParagraph
    .TypeText "text without link"
    .TypeParagraph
    wDoc.Hyperlinks.Add Anchor:=Selection.Range, Address:=link, _
    SubAddress:="", ScreenTip:="", TextToDisplay:=linkText
  End With
  wApp.Quit
  Set wDoc = Nothing
  Set wApp = Nothing
End Sub

这是有效的 Word VBA 代码:

Here is the Word VBA code that is working:

Sub wordLinkFromWord()
Dim wD As Document
Dim linkText As String, link As String
linkText = "google"
link = "http://www.google.com"
Set wD = ActiveDocument
With Selection
  .EndKey 6, 0
  .TypeParagraph
  .TypeText "text without link"
  .TypeParagraph
  wD.Hyperlinks.Add Anchor:=Selection.Range, Address:=link, _
  SubAddress:="", ScreenTip:="", TextToDisplay:=linkText
End With
End Sub

谢谢！