使用contentcontrolsbytitle()将数据从Excel传输到Word文档

Sub TransferDataFromExcelToWord()
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim wordApp As Object
    Dim wordDocument As Object
    Dim dataRange As Object
    Dim contentControl As Object
    
    ' 打开Excel文件
    Set excelApp = CreateObject("Excel.Application")
    Set excelWorkbook = excelApp.Workbooks.Open("C:\path\to\excel\file.xlsx")
    Set excelWorksheet = excelWorkbook.Worksheets("Sheet1")
    
    ' 选择要传输的数据范围
    Set dataRange = excelWorksheet.Range("A1:B10")
    
    ' 将数据复制到剪贴板
    dataRange.Copy
    
    ' 打开Word文档
    Set wordApp = CreateObject("Word.Application")
    Set wordDocument = wordApp.Documents.Open("C:\path\to\word\document.docx")
    
    ' 查找并填充内容控件
    Set contentControl = wordDocument.ContentControlsByTitle("Title1")
    contentControl.Range.Text = dataRange.Value
    
    ' 保存并关闭Word文档
    wordDocument.Save
    wordDocument.Close
    
    ' 关闭Excel文件
    excelWorkbook.Close
    excelApp.Quit
    
    ' 释放对象
    Set contentControl = Nothing
    Set dataRange = Nothing
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    Set wordDocument = Nothing
    Set wordApp = Nothing
End Sub