我一辈子都无法理解为什么我无法向所选文本添加超链接。
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。有任何想法吗？
您必须oWord从Excel内连接到Word，这很好，但是两个应用程序都有该对象，Selection并且在您的Hyperlinks.Add代码中，该Anchor值没有前缀，oWord表示它正试图使用Selection引起错误的Excel 。
将锚行更改为：-
Anchor:=oWord.Selection.Range, _
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句