Excel宏循环前关闭Word文档失败求助（附VBA代码）

你的问题核心是每次循环都新建Word应用实例，且关闭文档时未正确清理对象，导致残留空白窗口。以下是修复后的完整代码及关键修改说明：

修复后的代码 #

Sub ReplaceText()
    Dim wApp As Word.Application
    Dim wdoc As Word.Document
    Dim custN As String, path As String  ' 修正原代码未声明custN类型的问题
    Dim r As Long
    
    ' 将Word应用实例创建移至循环外，避免重复新建实例
    Set wApp = CreateObject("Word.Application")
    wApp.Visible = True  ' 若无需查看运行过程，可设为False提升执行效率
    
    r = 2
    Do While Sheet1.Cells(r, 1) <> ""
        Set wdoc = wApp.Documents.Open(Filename:="G:\Shared\macros\final.dotx", ReadOnly:=True)
        
        With wdoc
            ' 替换<<ID>>占位符
            .Application.Selection.Find.Text = "<<ID>>"
            .Application.Selection.Find.Execute
            .Application.Selection = Sheet1.Cells(r, 1).Value
            .Application.Selection.EndOf
            
            ' 替换<<date>>占位符
            .Application.Selection.Find.Text = "<<date>>"
            .Application.Selection.Find.Execute
            .Application.Selection = Sheet1.Cells(r, 3).Value
            .Application.Selection.EndOf
            
            ' 生成目标文件名与路径
            custN = Sheet1.Cells(r, 1).Value & " " & Sheet1.Cells(r, 2).Value
            path = "G:\Shared\til arkiv\final settlement forms\"
            
            ' 保存处理后的文档
            .SaveAs2 Filename:=path & custN, _
                FileFormat:=wdFormatXMLDocument, AddtoRecentFiles:=False
                
            ' 关闭当前文档，SaveChanges:=False避免弹出保存确认弹窗
            .Close SaveChanges:=False
        End With
        
        ' 释放当前文档对象，避免内存泄漏
        Set wdoc = Nothing
        r = r + 1
    Loop
    
    ' 循环结束后退出Word应用，释放应用对象
    wApp.Quit
    Set wApp = Nothing
End Sub

关键修改说明 #

• Word实例移至循环外：原代码每次循环都新建Word进程，导致多个后台实例残留；现在仅创建一次实例，循环结束后统一退出。
• 正确关闭文档：添加.Close SaveChanges:=False，确保保存后直接关闭当前文档，不会触发额外保存提示。
• 对象释放：每次循环后释放wdoc对象，循环结束后释放wApp对象，彻底清理内存中的Word实例。
• 变量声明规范：修正原代码中custN未指定类型的问题，明确声明为String类型。

若运行时提示wdFormatXMLDocument未定义，说明Excel未引用Word对象库，可将该常量替换为数值12（对应docx格式），修改后的保存代码如下：

.SaveAs2 Filename:=path & custN, _
    FileFormat:=12, AddtoRecentFiles:=False

内容的提问来源于stack exchange，提问作者Indrė Lnv