如何将excel中单个单元格的超链接复制到已由VBA创建并填充的word文档中？

Sub CopyHyperlinkToWord()
    Dim objWord As Object
    Dim objDoc As Object
    Dim objExcel As Object
    Dim objSheet As Object
    Dim rngCell As Range
    Dim strHyperlink As String
    
    ' 创建一个新的Word应用程序对象
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True ' 可见性设置为True以便查看生成的Word文档
    
    ' 创建一个新的Word文档
    Set objDoc = objWord.Documents.Add
    
    ' 创建一个对Excel应用程序的引用
    Set objExcel = GetObject(, "Excel.Application")
    
    ' 设置要复制的工作簿和工作表
    Set objSheet = objExcel.ActiveWorkbook.ActiveSheet
    
    ' 设置要复制的单元格范围
    Set rngCell = objSheet.Range("A1") ' 将"A1"替换为包含超链接的单元格的地址
    
    ' 获取单元格中的超链接
    strHyperlink = rngCell.Hyperlinks(1).Address
    
    ' 将超链接复制到Word文档中
    objDoc.Range.InsertAfter strHyperlink
    
    ' 清理对象引用
    Set rngCell = Nothing
    Set objSheet = Nothing
    Set objExcel = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub