Excel VBA 操作 Word（入门篇）

Microsoft Office 套件中的 Word 是一个强大的文本编辑工具，可以用于创建各种文档类型，如信函、合同、报表、简历等等。Word 还提供了强大的自动化功能，使用户能够使用代码从 Excel 中打开和编辑 Word 文档。

在本教程中，我们将介绍如何使用 Excel VBA 操作 Word 文档。

第一步：打开 Word

首先，我们需要在 VBA 代码中打开 Word。可以使用以下代码行打开 Word：

Dim wordApp As Word.Application
Set wordApp = CreateObject("Word.Application")

使用 CreateObject 函数可以创建新的 Word 应用程序对象。

请确保在代码中添加对 "Microsoft Word xx.0 Object Library" 的引用。其中 "xx.0" 是你安装的 Word 版本号，如 Word 2016 的版本号为 16.0。

第二步：打开文档

要打开 Word 文档，请使用以下代码：

Dim wordDoc As Word.Document
Set wordDoc = wordApp.Documents.Open("C:\Path\To\Document.docx")

这将打开名为 "Document.docx" 的 Word 文档。请将文件路径替换为您要打开的文档的实际路径。

第三步：操作文档

要向 Word 文档中添加文本，请使用以下代码：

wordDoc.Content.Text = "Hello, world!"

这将在文档的开头添加 "Hello, world!"。

你还可以使用 Selection 对象添加文本和格式化选定的文本。例如，以下代码将选定的文本设置为红色和加粗：

wordApp.Selection.Font.Color = wdColorRed
wordApp.Selection.Font.Bold = True

可以使用 Find 方法搜索文档中的文本，并使用 Replace 方法进行替换。例如，以下代码将 "old" 替换为 "new"：

wordApp.Selection.Find.Execute FindText:="old", ReplaceWith:="new", _
    MatchWholeWord:=True, MatchCase:=False

第四步：保存和关闭文档

要保存 Word 文档，请使用以下代码：

wordDoc.Save

你也可以使用以下代码将文件另存为不同的名称和/或路径：

wordDoc.SaveAs "C:\Path\To\NewDocument.docx"

要关闭 Word 文档，请使用以下代码：

wordDoc.Close

请注意，关闭 Word 应用程序并不会自动关闭打开的文档。要关闭 Word 应用程序，请使用以下代码：

wordApp.Quit

第五步：完整示例

以下是一个完整的示例，它使用 Excel VBA 打开 Word 文档，添加文本，保存文档，然后关闭文档和 Word 应用程序：

Sub AddTextToWordDoc()
    ' 打开 Word 应用程序
    Dim wordApp As Word.Application
    Set wordApp = CreateObject("Word.Application")

    ' 打开 Word 文档
    Dim wordDoc As Word.Document
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Document.docx")

    ' 向文档添加文本
    wordDoc.Content.Text = "Hello, world!"

    ' 保存文档
    wordDoc.Save

    ' 关闭文档和 Word 应用程序
    wordDoc.Close
    wordApp.Quit
End Sub

现在你已经了解了如何使用 Excel VBA 操作 Word 文档。这只是 Word 自动化中的一小部分，你还可以进行更多的操作，例如添加表格和图像，插入页眉和页脚，设置样式等等。