如何在父过程test01中关闭子函数Pro1创建的Word.Application

首先，你当前的核心问题是：Pro1函数里的objWord是局部变量，父过程test01根本访问不到它，自然没法直接关闭这个Word实例。要实现test01运行结束后静默无提示关闭Word，我们需要让父过程能获取到这个Word应用实例，下面给你两个实用的解决方案：

方案1：使用模块级变量存储Word应用实例 #

这是最直接的实现方式，把objWord声明在模块的最顶部（所有过程之外），让整个模块的所有过程都能访问它：

' 模块级变量，放在所有过程上方，整个模块都能调用
Dim objWord As Word.Application

Sub test01()
    Dim targetDoc As Word.Document
    Set targetDoc = Pro1
    
    ' 先执行PDF导出
    WrdPDF objDoc:=targetDoc, strPath:=ThisWorkbook.Path & "\" & "rep.pdf"
    
    ' 调用自定义的静默关闭过程
    CloseWordSilently targetDoc
End Sub

Function Pro1 As Word.Document
    Dim objDocTotal As Word.Document
    Dim objDoc As Word.Document
    
    Worksheets("Salary").OLEObjects("PayCheck").Activate
    ' 直接使用模块级的objWord变量
    Set objWord = GetObject(, "Word.Application")
    objWord.Visible = False
    Set objDoc = objWord.ActiveDocument
    Set objDocTotal = objWord.Documents.Add
    
    ' ... 这里放你的其他业务代码
    
    Set Pro1 = objDocTotal
End Function

Sub WrdPDF(objDoc As Object, strPath As String, Optional Opn As Boolean)
    objDoc.ExportAsFixedFormat _
        OutputFileName:=strPath, _
        ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=Opn, _
        OptimizeFor:=wdExportOptimizeForPrint, _
        Range:=wdExportAllDocument, _
        Item:=wdExportDocumentContent, _
        IncludeDocProps:=False, _
        KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, _
        DocStructureTags:=True, _
        BitmapMissingFonts:=True, _
        UseISO19005_1:=False
End Sub

' 专门的静默关闭子过程，封装关闭逻辑
Sub CloseWordSilently(targetDoc As Word.Document)
    ' 关闭所有Word提示框，实现静默效果
    objWord.DisplayAlerts = wdAlertsNone
    
    ' 先关闭目标文档，不保存（如果不需要保留生成的文档）
    targetDoc.Close SaveChanges:=wdDoNotSaveChanges
    
    ' 退出Word应用程序
    objWord.Quit
    
    ' 释放对象，避免内存泄漏
    Set targetDoc = Nothing
    Set objWord = Nothing
End Sub

方案2：让函数返回包含文档和应用的数组（避免模块级变量污染） #

如果你不想用模块级变量（担心全局变量带来的意外问题），可以让Pro1函数返回一个数组，同时包含生成的文档和Word应用实例：

Sub test01()
    Dim resultArr As Variant
    resultArr = Pro1 ' 数组第1个元素是文档，第2个是Word应用
    
    Dim targetDoc As Word.Document
    Dim targetWord As Word.Application
    Set targetDoc = resultArr(0)
    Set targetWord = resultArr(1)
    
    ' 执行PDF导出
    WrdPDF objDoc:=targetDoc, strPath:=ThisWorkbook.Path & "\" & "rep.pdf"
    
    ' 静默关闭Word
    targetWord.DisplayAlerts = wdAlertsNone
    targetDoc.Close SaveChanges:=wdDoNotSaveChanges
    targetWord.Quit
    
    ' 释放对象
    Set targetDoc = Nothing
    Set targetWord = Nothing
End Sub

Function Pro1 As Variant
    Dim objWord As Word.Application
    Dim objDocTotal As Word.Document
    Dim objDoc As Word.Document
    
    Worksheets("Salary").OLEObjects("PayCheck").Activate
    Set objWord = GetObject(, "Word.Application")
    objWord.Visible = False
    Set objDoc = objWord.ActiveDocument
    Set objDocTotal = objWord.Documents.Add
    
    ' ... 这里放你的其他业务代码
    
    ' 将文档和应用打包成数组返回
    Pro1 = Array(objDocTotal, objWord)
End Function

' WrdPDF子过程保持不变
Sub WrdPDF(objDoc As Object, strPath As String, Optional Opn As Boolean)
    objDoc.ExportAsFixedFormat _
        OutputFileName:=strPath, _
        ExportFormat:=wdExportFormatPDF, _
        OpenAfterExport:=Opn, _
        OptimizeFor:=wdExportOptimizeForPrint, _
        Range:=wdExportAllDocument, _
        Item:=wdExportDocumentContent, _
        IncludeDocProps:=False, _
        KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, _
        DocStructureTags:=True, _
        BitmapMissingFonts:=True, _
        UseISO19005_1:=False
End Sub

关键细节提醒 #

• 静默关闭的核心：必须设置DisplayAlerts = wdAlertsNone，否则关闭时会弹出保存文档的提示框，破坏静默效果。
• 对象释放：关闭后一定要把对象设为Nothing，避免VBA内存泄漏。
• 如果你的Pro1是用CreateObject("Word.Application")创建的新Word实例，关闭逻辑完全一致，只是实例创建方式不同。

内容的提问来源于stack exchange，提问作者Tuberose