vba读取word内容写入excel

### 回答1：
如何用 VBA 读取 Word 内容并写入 Excel？

可以使用以下代码实现：

1. 打开 Word 文档：

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("路径\文件名.docx")

2. 读取 Word 文档内容：

Dim para As Word.Paragraph
Dim i As Integer

i = 1

For Each para In wdDoc.Paragraphs
    '将 Word 段落内容写入 Excel 单元格
    ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = para.Range.Text
    i = i + 1
Next para

3. 关闭 Word 文档和应用程序：

wdDoc.Close
wdApp.Quit

Set wdDoc = Nothing
Set wdApp = Nothing

### 回答2：
VBA是一种用于自动化程序开发的编程语言，可以在Microsoft Office各种应用中使用，其中包括Word和Excel。

在VBA中读取Word内容然后写入Excel，首先需要在Excel VBA中打开一个Word文档，相应的代码如下：

1. 首先，你需要定义一个Word文档对象变量：

Dim objWord As Object

2. 使用CreateObject函数来创建一个新的Word文档对象：

Set objWord = CreateObject("Word.Application")

3. 打开指定的Word文档：

objWord.Documents.Open "C:\MyDoc.docx"

4. 现在你可以访问并读取Word文档中的内容。例如，以下代码将在Excel VBA中发布文档中第一段的文本：

Range("A1").Value = objWord.ActiveDocument.Paragraphs(1).Range.Text

5. 当完成读取Word文档中的内容后，我们需要关闭Word文档并退出Word的应用程序：

objWord.ActiveDocument.Close
objWord.Quit

6. 之后，你可以将读取的Word内容写入Excel工作簿。例如，将文本内容写入到Excel的B1单元格：

Range("B1").Value = objWord.ActiveDocument.Paragraphs(1).Range.Text

以上就是VBA读取Word内容写入Excel的方法，不过实践中，我们通常需要遍历整个Word文档，将所有内容都写入到Excel中。这就需要使用For Each循环来遍历Word文档中的段落、表格、图片等等。

总之，借助VBA，我们可以轻松地读取和处理Word文件中的各种内容，并将其写入到Excel中。VBA不仅提高了工作效率，还帮助我们处理所有复杂的任务。

### 回答3：
VBA是Visual Basic for Applications的缩写，是一种广泛使用于Microsoft Office产品的编程语言。VBA可以用来实现许多功能，包括读取Word文件并将内容写入Excel表格。下面将通过以下步骤详细介绍如何使用VBA读取Word内容并写入Excel。

第一步：打开Visual Basic Editor (VBE)

首先，需要打开Excel工作簿并按下ALT + F11以打开VBE。在VBE中，从“插入”菜单中选择“模块”以插入一个新的VBA模块。

第二步：编写代码

接下来，需要编写一个VBA代码以读取Word内容并写入Excel中。代码示例如下：

Sub Read_Word_Write_Excel()
Dim objWord As Object
Dim objDoc As Object
Dim iTable As Integer
Dim jRow As Integer
Dim jCol As Integer

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open("C:\Sample.docx")

For iTable = 1 To objDoc.Tables.Count
    For jRow = 1 To objDoc.Tables(iTable).Rows.Count
        For jCol = 1 To objDoc.Tables(iTable).Columns.Count
            Cells(jRow, jCol) = objDoc.Tables(iTable).Cell(jRow, jCol).Range.Text
        Next
    Next
Next

objDoc.Close
objWord.Quit
Set objWord = Nothing
Set objDoc = Nothing
End Sub

第三步：运行代码

在VBE中，选中编写的代码并按下F5或从菜单中选择“运行”以开始读取Word并将其写入Excel。

总结：

通过以上步骤和VBA代码，可以很轻松地将Word内容读取并写入Excel。但需要注意的是，代码中“C:\Sample.docx”应该替换成实际的Word文件路径。同时，由于代码中没有检查Excel表格中是否已经存在数据，这意味着如果在写入数据之前没有清空Excel表格，那么需要手动清空表格以避免数据重复。