退出在子子程序中打开的 Word.Application

我们宣布Word.Application对象在Pro1下面的子函数。因为我们需要返回Word.Document对象，应保持打开状态。我怎样才能退出父子例程中的Word应用程序(test01)

我需要objWord声明于的对象Pro1函数将在没有提示的情况下安静地退出test01程序运行已结束。

我有以下两个过程

并执行以下操作：

Sub test01()
    WrdPDF objDoc:=Pro1 strPath:=ThisWorkbook.path & "\" & "rep.pdf"
End Sub

|

Function Pro1 As Word.Document

    'Declaration
    Dim objWord As Word.Application
    ' Here we declare a Word Application in the function and need 
    ' quit that in another procedure (The parent one which is test01). 
    Dim objDocTotal As Word.Document
    Dim objDoc As Word.Document

    'Initializing
    Worksheets("Salary").OLEObjects("PayCheck").Activate
    Set objWord = GetObject(, "Word.Application")
    objWord.Visible = False
    Set objDoc = objWord.ActiveDocument
    Set objDocTotal = objWord.Documents.Add

...

    Proc1 = objDocTotal
End Function

|

Sub WrdPDF(objDoc As Object, strPath As String, Optional Opn As Boolean) 'MS-Word PDF
    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

Regards.

您不能退出该子例程并保持文档打开。一旦该子例程结束，变量 objWord 就不再可用 - 您已经“孤立”了 Word 的实例。

我立即看到两种可能性，这两种可能性都涉及传递对象并从对象中取回对象Proc1这样您就可以访问应用程序对象：

1）您可以在test_01中声明Word.Application对象并将其传递给Proc1

Sub test01()
    Dim objWord as Word.Application
    WrdPDF objDoc:=Proc1(objWord), strPath:=ThisWorkbook.path & "\" & "rep.pdf"
    objWord.Quit 0
End Sub

Function Proc1(ref objWord as Word.Application) As Word.Document
    Dim objDocTotal As Word.Document
    Dim objDoc As Word.Document
    'And so on, as you currently have, without declaring objWord here

2) 您可以通过 Proc1 返回的文档对象来访问应用程序对象：

Sub test01()
    Dim objDoc as Word.Document
    Dim objWord as Word.Application
    Dim strPath as String

    strPath = ThisWorkbook.path & "\" & "rep.pdf"
    Set objDoc = Proc1
    WrdPDF objDoc, strPath
    Set objWord = objDoc.Application
    objWord.Quit 0 'do not prompt to save changes
End Sub

我可能倾向于使用（2），但是当我测试它们时，两者都有效。