一、如何用vba代码向word文档中插入表格？
在VBA中向Word文档中插入表格非常简单，可以使用下列代码示例：
Sub InsertTableInWord()
Dim wdApp As Object
Dim wdDoc As Object
Dim wdTable As Object
' 创建Word应用程序对象
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
' 创建一个新的Word文档
Set wdDoc = wdApp.Documents.Add
' 插入一个表格
Set wdTable = wdDoc.Tables.Add(wdDoc.Range, NumRows:=3, NumColumns:=4)
' 更改表格的内容和格式
' ...
' 释放对象
Set wdTable = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub这段代码会创建一个新的Word文档，并向其中插入一个包含3行4列的表格。你可以根据需要修改表格的行数、列数以及进一步格式化表格内容。
二、VBA如何将Word表格内容复制到Excel中？
在VBA中，你可以使用以下代码将Word文档中的表格内容复制到Excel工作表中：
Sub CopyTableFromWordToExcel()
Dim wdApp As Object
Dim wdDoc As Object
Dim wdTable As Object
Dim xlApp As Object
Dim xlWb As Object
Dim xlSheet As Object
' 创建Word应用程序对象
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
' 打开Word文档
Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
' 获取Word文档中的表格
Set wdTable = wdDoc.Tables(1) ' 假设表格在文档中的第一个位置
' 创建Excel应用程序对象
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True ' 如果需要可见Excel应用程序，请设置为True
' 创建一个新的Excel工作簿
Set xlWb = xlApp.Workbooks.Add
' 在Excel工作簿中创建一个工作表
Set xlSheet = xlWb.Sheets(1)
' 将Word表格复制到Excel中
wdTable.Range.Copy
xlSheet.Range("A1").PasteSpecial
' 释放对象
Set xlSheet = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
' 关闭Word文档
wdDoc.Close False ' False表示不保存更改
Set wdTable = Nothing
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing
End Sub这段代码将打开一个特定路径下的Word文档（请替换路径为你的Word文件路径），复制其中的第一个表格，然后将其粘贴到Excel的第一个单元格（A1）。你可以根据需要更改表格索引、目标Excel工作表的位置等。
三、总结
使用VBA可以轻松地在Word中插入表格，以及将Word文档中的表格内容复制到Excel中。通过创建Word应用程序对象并使用其对象模型的功能，可以操作Word文档中的表格，然后使用Excel应用程序对象完成表格内容的复制粘贴。这些操作可以根据需求进一步扩展和修改。
