Question

不能为我的生活弄清楚为什么我不能添加到所选文本的超链接。

oWord.ActiveDocument.Select
With oWord.Selection.Find
    .Text = "Text to Find"
    .Wrap = wdFindStop
    .Execute
End With

oWord.ActiveDocument.Hyperlinks.Add _ 
Anchor:=Selection.Range, _ 
Address:=fpath & ProductName & "_" & ExpTitle & "_" & Revision & ".docx", _
TextToDisplay:="Text to Find"

上面的代码选择“要查找的文本”但在尝试添加超链接时给出了错误450。有什么想法吗？

Answer 1

您有oWord从Excel中连接到Word，这很好，但是两个应用程序都有对象Selection，而Hyperlinks.Add代码中的Anchor值不是前缀为oWord，意味着它正在尝试使用导致错误的Excel Selection。

将锚点行更改为： -

Anchor:=oWord.Selection.Range, _

错误450：参数数量错误或属性分配无效Excel-Vba

1 个答案: