如何将Excel数据导入Word的ContentControl

Sub ImportExcelData()
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Dim rngData As Object
    Dim strData As String
    
    ' 设置Excel文件路径和名称
    strData = "C:\Path\To\Your\Excel\File.xlsx"
    
    ' 创建Excel对象
    Set objExcel = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set objWorkbook = objExcel.Workbooks.Open(strData)
    
    ' 选择第一个工作表
    Set objWorksheet = objWorkbook.Worksheets(1)
    
    ' 选择需要导入的数据范围
    Set rngData = objWorksheet.Range("A1:B10") ' 根据实际情况修改范围
    
    ' 将数据复制到剪贴板
    rngData.Copy
    
    ' 将数据粘贴到ContentControl控件
    Selection.PasteAndFormat wdFormatPlainText
    
    ' 关闭Excel文件
    objWorkbook.Close
    
    ' 释放对象
    Set rngData = Nothing
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub