Sub a()
Dim WordApp As Object '定义Word Application
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Dim WordDoc As Object '定义文档
Set WordDoc = WordApp.Documents.Open("D:\MYWORK\Excel2Word\Doc1.docx")
WordApp.Selection.WholeStory '文档全选
'将文档里所有的{0}替换成当前EXCEL单元格A1里面的内容
With WordApp.Selection.Find
.Text = "{0}"
.Replacement.Text = Cells(1, 1)
.Execute Replace:=wdReplaceAll
End With
WordDoc.Save ‘保存
WordDoc.Close
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing
End Sub
Sub a()Dim WordApp As Object '定义Word ApplicationSet WordApp = CreateObject("Word.Application")WordApp.Visible = True Dim WordDoc As Object '定义文档Set WordDoc = WordApp.Documents.Open("D:\MYWORK\Ex...
本文的对象是：有一定Excel VBA基础，对Word VBA还没有什么认识，想在Excel中通过VBA操作Word还有困难的人。
一、新建Word引用
需要首先创建一个对 Word Application 对象的引用。在VBA中，工具-引用，选取“MicroSoft Word 11.0 Object Library”。
方法一、New Word.App...
Selection 对象代表窗口或窗格中的当前所选内容。所选内容代表文档中选定（或突出显示）的区域，如果文档中没有选定任何内容，则代表插入点。每个文档窗格只能有一个 Selection 对象，并且在整个应用程序中只能有一个活动的 Selection 对象。
可以使用 Selection 属性返回 Selection 对象。如果 Selection 属性未使用对象限定符，则 Microsof
可以使用VBA编写程序，通过Excel批量生成Word文档。具体实现方法如下：
1. 在Excel中创建一个表格，包含需要生成的Word文档的相关信息，如文件名、路径、内容等。
2. 在Excel中打开Visual Basic编辑器，创建一个新的模块。
3. 在模块中编写VBA程序，通过循环读取Excel表格中的数据，逐个生成Word文档。
4. 在VBA程序中使用Word对象模型，打开Word应用程序，创建新的文档，设置文档属性，插入内容等。
5. 最后保存Word文档，并关闭Word应用程序。
需要注意的是，在编写VBA程序时，需要熟悉Excel和Word的对象模型，以及相关的VBA语法和函数。同时，还需要注意程序的稳定性和效率，避免出现错误和卡顿等问题。
