vba excel导入word

在VBA (Visual Basic for Applications) 中，Excel 可以通过 Word 的对象模型来导入 Word 文档的内容。以下是一个简单的步骤来导入 Word 文档到 Excel 工作表：

1. 首先，你需要引用 Microsoft Word 对象库。在 VBA 窗口底部的 "Tools" 菜单中选择 "References"，然后在弹出的窗口中找到并勾选 "Microsoft Word Object Library"。

2. 定义变量，比如 `WordApp` 和 `WordDoc` 分别表示 Word 应用程序和文档对象：

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

3. 创建 Word 应用程序实例，并打开需要导入的 Word 文档：

Set WordApp = New Word.Application
WordApp.Visible = True ' 如果你想看到 Word 窗口，可以设置为 True
Set WordDoc = WordApp.Documents.Open("C:\path\to\your\document.docx")

将路径替换为你实际的 Word 文档位置。

4. 接下来，你可以从 Word 文档中读取内容，例如文本、表格等，将其复制到 Excel。这里以获取整个文档的文本为例：

Dim TextRange As Word.Range
Set TextRange = WordDoc.Content

' 将 Word 文本复制到 Excel
Dim Sheet1 As Worksheet ' 假设你想要插入到当前活动工作表
Sheet1.Cells(1, 1).Select ' 选择第一个单元格作为粘贴位置
Sheet1.PasteSpecial Link:=False ' 常规粘贴，而不是链接
TextRange.Cut ' 在 Word 中剪切内容

5. 最后，记得关闭 Word 文档和释放资源：

WordDoc.Close SaveChanges:=False ' 关闭 Word 文档，不保存更改
WordApp.Quit ' 关闭 Word 应用程序
Set WordDoc = Nothing
Set WordApp = Nothing

完成以上步骤后，Word 文档的内容就会被导入到 Excel 中了。