VBA复制包含数据的选定单元格(Excel)。将它们粘贴到表格的特定行中(Word)

Sub CopyDataToWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelRange As Range
    Dim wordTable As Object
    Dim wordRow As Object
    
    ' 创建一个新的Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开一个现有的Word文档或创建一个新的文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 激活Excel中的工作表
    ThisWorkbook.Activate
    
    ' 选择要复制的单元格范围
    Set excelRange = Selection
    
    ' 将选定单元格的数据复制到Word中的表格中
    With wordDoc
        ' 添加一个表格到Word文档中
        Set wordTable = .Tables.Add(.Range, excelRange.Rows.Count, excelRange.Columns.Count)
        
        ' 循环遍历选定单元格的每一行
        For Each excelRow In excelRange.Rows
            ' 在Word表格中添加一行
            Set wordRow = wordTable.Rows.Add
            
            ' 循环遍历选定单元格的每一列
            For Each excelCell In excelRow.Cells
                ' 将单元格的值复制到Word表格中的对应位置
                wordRow.Cells(excelCell.Column).Range.Text = excelCell.Value
            Next excelCell
        Next excelRow
    End With
    
    ' 显示Word应用程序窗口
    wordApp.Visible = True
    
    ' 清理对象变量
    Set wordRow = Nothing
    Set wordTable = Nothing
    Set excelRange = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub