VBA循环中最后一个PDF无法通过Adobe SDK插入到合并PDF

我编写了VBA代码，将多章节报告合并为单个PDF：以封面文档为基础，循环插入章节页和对应报告文档。代码运行时所有章节页都能正常插入，但循环中的最后一个报告文档始终无法插入，仅会插入最后一个章节页，无论数组中有多少项。

测试情况 #

• 传入4组SectionArray/PathArray文档对：4个章节页均成功合并，但仅3个报告文档被插入，最后一个返回false；
• 更换不同PDF文件排除权限/安全问题：无论选择哪些文件，最后一个报告文档始终无法插入；
• 仅传入1组文档对：章节页插入正常，但对应报告文档返回false。

原代码片段 #

'Cover page location that was already 
finalFilePath = "FINAL DOCUMENT PATH\Project Name Close-Out Package.pdf"

'Section page file locations and reports to combine into the final PDF
'SectionArray will always be the same length as the PathArray
Dim SectionArray() As String
SectionArray(0) = "SectionPage/Path/Here"
SectionArray(1) = "SectionPage/Path/Here"
SectionArray(2) = "SectionPage/Path/Here"
Dim PathArray() As String
PathArray(0) = "Document/Path/Here"
PathArray(1) = "Document/Path/Here"
PathArray(2) = "Document/Path/Here"

Dim AcroApp As Acrobat.CAcroApp
Set AcroApp = CreateObject("AcroExch.App")
Set primaryDoc = CreateObject("AcroExch.PDDoc")
ok = primaryDoc.Open(finalFilePath)


Dim xcounter As Integer
xcounter = 0
For Each L In PathArray
    numPages = primaryDoc.GetNumPages() - 1
    Debug.Print "numPages: " & numPages
    Set sectiondoc = CreateObject("AcroExch.PDDoc")
    If sectiondoc.Open(SectionArray(xcounter)) Then
        numberOfPagesToInsert = sectiondoc.GetNumPages()
        ok = primaryDoc.InsertPages(numPages, sectiondoc, 0, numberOfPagesToInsert, False)
    Else
        Debug.Print "Could not open file: " & SectionArray(xcounter)
    End If
    sectiondoc.Close
    Set sectiondoc = Nothing
    
    
    numPages2 = primaryDoc.GetNumPages() - 1
    Debug.Print "numPages2: " & numPages2
    Set sourceDoc = CreateObject("AcroExch.PDDoc")
    If sourceDoc.Open(PathArray(xcounter)) Then
        Debug.Print PathArray(xcounter)
        Debug.Print "Open Document Succeeded"
        numberOfPagesToInsert2 = sourceDoc.GetNumPages()
        Debug.Print numberOfPagesToInsert2
        If primaryDoc.InsertPages(numPages2, sourceDoc, 0, numberOfPagesToInsert2, False) Then
            Debug.Print "Inserted Pages: " & ok
        Else
            Debug.Print "Could not add pages: " & PathArray(xcounter)
        End If
    Else
        Debug.Print "Could not open file: " & PathArray(xcounter)
    End If
    
    xcounter = xcounter + 1
Next L

ok = primaryDoc.Save(PDSaveFull, finalFilePath)
primaryDoc.Close
Set primaryDoc = Nothing
AcroApp.Exit
Set AcroApp = Nothing

问题定位 #

核心问题是报告文档的COM对象未被正确关闭和释放：代码中对章节页文档sectiondoc调用了Close并设置为Nothing，但对报告文档sourceDoc未执行任何释放操作，导致最后一次循环中sourceDoc占用文件资源或锁定，引发插入失败。此外还存在调试变量复用、数组未初始化大小等潜在问题。

修复后的代码 #

' 封面文档路径
finalFilePath = "FINAL DOCUMENT PATH\Project Name Close-Out Package.pdf"

' 章节页和对应报告文档路径数组（确保长度一致）
Dim SectionArray(2) As String
SectionArray(0) = "SectionPage/Path/Here"
SectionArray(1) = "SectionPage/Path/Here"
SectionArray(2) = "SectionPage/Path/Here"

Dim PathArray(2) As String
PathArray(0) = "Document/Path/Here"
PathArray(1) = "Document/Path/Here"
PathArray(2) = "Document/Path/Here"

Dim AcroApp As Acrobat.CAcroApp
Set AcroApp = CreateObject("AcroExch.App")

Dim primaryDoc As AcroExch.PDDoc
Set primaryDoc = CreateObject("AcroExch.PDDoc")
If Not primaryDoc.Open(finalFilePath) Then
    Debug.Print "无法打开封面文档：" & finalFilePath
    GoTo Cleanup
End If

Dim xcounter As Integer
xcounter = 0
Dim L As Variant
For Each L In PathArray
    ' 插入章节页
    Dim numPages As Long
    numPages = primaryDoc.GetNumPages() - 1
    Debug.Print "当前主文档页数：" & primaryDoc.GetNumPages() & "，插入章节页位置：" & numPages
    
    Dim sectiondoc As AcroExch.PDDoc
    Set sectiondoc = CreateObject("AcroExch.PDDoc")
    If sectiondoc.Open(SectionArray(xcounter)) Then
        Dim numberOfPagesToInsert As Long
        numberOfPagesToInsert = sectiondoc.GetNumPages()
        If primaryDoc.InsertPages(numPages, sectiondoc, 0, numberOfPagesToInsert, False) Then
            Debug.Print "成功插入章节页：" & SectionArray(xcounter)
        Else
            Debug.Print "插入章节页失败：" & SectionArray(xcounter)
        End If
    Else
        Debug.Print "无法打开章节页文档：" & SectionArray(xcounter)
    End If
    sectiondoc.Close
    Set sectiondoc = Nothing
    
    ' 插入报告文档
    Dim numPages2 As Long
    numPages2 = primaryDoc.GetNumPages() - 1
    Debug.Print "当前主文档页数：" & primaryDoc.GetNumPages() & "，插入报告页位置：" & numPages2
    
    Dim sourceDoc As AcroExch.PDDoc
    Set sourceDoc = CreateObject("AcroExch.PDDoc")
    If sourceDoc.Open(PathArray(xcounter)) Then
        Debug.Print "成功打开报告文档：" & PathArray(xcounter)
        Dim numberOfPagesToInsert2 As Long
        numberOfPagesToInsert2 = sourceDoc.GetNumPages()
        Debug.Print "报告文档页数：" & numberOfPagesToInsert2
        
        Dim insertSuccess As Boolean
        insertSuccess = primaryDoc.InsertPages(numPages2, sourceDoc, 0, numberOfPagesToInsert2, False)
        If insertSuccess Then
            Debug.Print "成功插入报告文档：" & PathArray(xcounter)
        Else
            Debug.Print "插入报告文档失败：" & PathArray(xcounter)
        End If
    Else
        Debug.Print "无法打开报告文档：" & PathArray(xcounter)
    End If
    ' 关键：关闭并释放报告文档对象
    sourceDoc.Close
    Set sourceDoc = Nothing
    
    xcounter = xcounter + 1
Next L

' 保存并关闭主文档
If primaryDoc.Save(PDSaveFull, finalFilePath) Then
    Debug.Print "合并后的PDF已成功保存：" & finalFilePath
Else
    Debug.Print "保存PDF失败"
End If

Cleanup:
' 释放所有COM对象
If Not primaryDoc Is Nothing Then
    primaryDoc.Close
    Set primaryDoc = Nothing
End If
If Not AcroApp Is Nothing Then
    AcroApp.Exit
    Set AcroApp = Nothing
End If

修复说明 #

1. 释放报告文档对象：每次插入报告文档后调用sourceDoc.Close并Set sourceDoc = Nothing，避免资源锁定和COM对象泄漏；
2. 修正调试变量：使用独立变量insertSuccess存储报告插入结果，避免复用章节页的ok变量导致调试信息错误；
3. 初始化数组大小：给数组声明固定长度，避免VBA中未初始化数组的潜在错误；
4. 统一资源清理：添加Cleanup标签块，确保所有COM对象在代码结束时都能被正确释放；
5. 优化调试输出：调整输出内容，更清晰地展示当前操作状态，方便排查问题。

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