Excel vba操作word

Excel VBA 可以使用以下方法来操作 Word 文档：

1.打开 Word 文档：

可以使用以下 VBA 代码在 Excel 中打开 Word 文档：

Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Open("C:\Users\user\Desktop\test.docx")

2.在 Word 文档中插入文本：

可以使用以下 VBA 代码在 Word 文档中插入文本：

wordDoc.Content.InsertAfter "这是要插入的文本。"

3.在 Word 文档中插入表格：

可以使用以下 VBA 代码在 Word 文档中插入表格：

Dim wordTable As Word.Table
Set wordTable = wordDoc.Tables.Add(wordDoc.Range, 3, 3)
wordTable.Cell(1, 1).Range.Text = "表格1"
wordTable.Cell(1, 2).Range.Text = "表格2"
wordTable.Cell(1, 3).Range.Text = "表格3"
wordTable.Cell(2, 1).Range.Text = "1"
wordTable.Cell(2, 2).Range.Text = "2"
wordTable.Cell(2, 3).Range.Text = "3"
wordTable.Cell(3, 1).Range.Text = "4"
wordTable.Cell(3, 2).Range.Text = "5"
wordTable.Cell(3, 3).Range.Text = "6"

4.保存 Word 文档：

可以使用以下 VBA 代码将 Word 文档保存到指定的位置：

wordDoc.SaveAs "C:\Users\user\Desktop\test.docx"

5.关闭 Word 文档：

可以使用以下 VBA 代码关闭 Word 文档：

wordDoc.Close

6.退出 Word 应用程序：

可以使用以下 VBA 代码退出 Word 应用程序：

wordApp.Quit

注意：在使用以上代码前，必须将 Microsoft Word 对象库添加到 VBA 项目中。