一、如何用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應用程式物件完成表格內容的複製貼上。這些操作可以根據需求進一步擴展和修改。
以上是如何用vba程式碼將word文件中插入的表格物件內容複製到Excel中的詳細內容。更多資訊請關注PHP中文網其他相關文章！
