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

Sub AddHyperlink()
    Dim ws As Worksheet
    Dim rng As Range
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim hyperlinkText As String
    Dim hyperlinkAddress As String
    
    ' 设置要添加超链接的工作表和单元格范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1")
    
    ' 设置超链接的文本和地址
    hyperlinkText = "点击打开Word文档"
    hyperlinkAddress = "C:\Path\To\Word.docx"
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open(hyperlinkAddress)
    
    ' 在Excel单元格中添加超链接
    rng.Hyperlinks.Add Anchor:=rng, Address:="", SubAddress:= _
        "'" & wordDoc.Name & "'" & "!A1", TextToDisplay:=hyperlinkText
    
    ' 关闭Word文档
    wordDoc.Close SaveChanges:=False
    
    ' 退出Word应用程序
    wordApp.Quit
    
    ' 释放对象变量
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub