使用VBA将Excel文件中的超链接添加到Word文档

Sub AddHyperlinksFromExcelToWord()
    Dim xlApp As Excel.Application
    Dim xlWorkbook As Excel.Workbook
    Dim xlWorksheet As Excel.Worksheet
    Dim rng As Excel.Range
    Dim link As Excel.Hyperlink
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdRange As Word.Range
    
    ' 创建Excel对象
    Set xlApp = New Excel.Application
    Set xlWorkbook = xlApp.Workbooks.Open("C:\Path\To\Excel\File.xlsx") ' 替换为实际的Excel文件路径
    Set xlWorksheet = xlWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名称
    
    ' 创建Word对象
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Word\File.docx") ' 替换为实际的Word文件路径
    Set wdRange = wdDoc.Content
    
    ' 遍历Excel文件中的每个单元格
    For Each rng In xlWorksheet.UsedRange
        ' 检查单元格是否包含超链接
        If rng.Hyperlinks.Count > 0 Then
            ' 遍历单元格中的每个超链接
            For Each link In rng.Hyperlinks
                ' 将超链接添加到Word文档中
                wdRange.Hyperlinks.Add Anchor:=wdRange, Address:=link.Address, TextToDisplay:=link.TextToDisplay
            Next link
        End If
    Next rng
    
    ' 保存并关闭Excel和Word文件
    xlWorkbook.Close SaveChanges:=False
    xlApp.Quit
    wdDoc.Save
    wdDoc.Close
    wdApp.Quit
    
    ' 释放对象
    Set link = Nothing
    Set rng = Nothing
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    Set wdRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub