用vba读取word中的表格的代码

### 回答1：

可以使用下面的代码来读取Word中的表格：Sub ReadTableFromWord()
Dim objWord As Object
Dim objDoc As Object
Dim objTable As Object
Dim objRow As Object
Dim objCell As Object
Dim iRow As Long
Dim iCol As Integer
Dim sText As String
Dim sCellText As String

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("C:\YourDocument.doc")

'Loop through all tables in the document
For Each objTable In objDoc.Tables
iRow = 0
'Loop through all rows in the table
For Each objRow In objTable.Rows
iCol = 0
'Loop through all cells in the table
For Each objCell In objRow.Cells
sCellText = objCell.Range.Text
'Strip off the end of cell marker
sCellText = Left(sCellText, Len(sCellText) - 1)
sText = sText & sCellText & vbTab
iCol = iCol + 1
Next
sText = sText & vbCrLf
iRow = iRow + 1
Next
Next

'Clean up
objDoc.Close
objWord.Quit

'Display the tabular data
MsgBox sText
End Sub

### 回答2：
VBA是Visual Basic for Applications的缩写，它是一种在Microsoft Office套件中使用的编程语言，可以用于自动化办公任务。下面是一个用VBA读取Word中表格的代码示例：

Sub ReadTableFromWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim wordTable As Object
    Dim rowNum As Integer
    Dim colNum As Integer
    
    ' 创建一个Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = False ' 不显示Word应用程序界面
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("文件路径和名称.docx")
    
    ' 获取第一个表格
    Set wordTable = wordDoc.Tables(1)
    
    ' 遍历表格的行和列
    For rowNum = 1 To wordTable.Rows.Count
        For colNum = 1 To wordTable.Columns.Count
            ' 在这里可以使用wordTable.Cell(rowNum, colNum)获取表格单元格的内容
            ' 例如：MsgBox wordTable.Cell(rowNum, colNum).Range.Text
        Next colNum
    Next rowNum
    
    ' 关闭Word文档和应用程序对象
    wordDoc.Close
    wordApp.Quit
    
    ' 释放对象变量
    Set wordTable = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

以上代码片段首先创建了一个Word应用程序对象，并打开了指定的Word文档。然后，获取文档中的第一个表格，并使用嵌套循环遍历表格的所有单元格。你可以在内部循环中使用`wordTable.Cell(rowNum, colNum).Range.Text`来获取表格单元格的文本内容，进而对其进行处理。

最后，代码关闭Word文档，并退出Word应用程序，并释放对象变量。

### 回答3：
以下是使用VBA读取Word中表格的代码：
Sub ReadTable()
Dim wdApp As Object
Dim wdDoc As Object
Dim wdTable As Object
Dim i As Integer
Set wdApp = CreateObject("Word.Application") '创建Word应用程序对象
wdApp.Visible = True '设置Word应用程序可见性
Set wdDoc = wdApp.Documents.Open("文件路径") '打开Word文档
Set wdTable = wdDoc.Tables(1) '选择第一个表格
For i = 1 To wdTable.Rows.Count '遍历表格的行
MsgBox wdTable.Cell(i, 1).Range.Text '显示第i行第一列的内容
Next i
wdDoc.Close '关闭Word文档
wdApp.Quit '关闭Word应用程序
Set wdTable = Nothing '释放占用的资源
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub

以上是一个示例代码，可以用VBA打开Word文档，选择第一个表格，然后遍历表格行并显示第一列的内容。你可以将"文件路径"替换为你需要读取的Word文档的路径，然后执行这段代码即可读取到表格中的内容。如果你需要读取的是其他表格或者内容，可以修改相应的代码部分。