excel - 多次将同一页面添加到 pdf

Question

我找到了一个代码，可以让我将几个 PDF 文件添加到另一个 PDF。

基本上，代码所做的是用字符串（您要收集的文件的名称）填充数组，然后循环命令 insertpage。

这是允许在一个文件中收集多个 PDF 的代码部分

    For i = 0 To UBound(a)
        
        Set PartDocs(i) = CreateObject("AcroExch.PDDoc")
        PartDocs(i).Open mypath & Trim(a(i))
        If i Then
    
            ni = PartDocs(i).GetNumPages()
            PartDocs(0).InsertPages n - 1, PartDocs(i), 0, ni, True
            
            n = n + ni
    
            PartDocs(i).Close
            Set PartDocs(i) = Nothing
        Else
            n = PartDocs(0).GetNumPages()
        End If
    Next

如果您有多个文件，它会很好用，但如果您尝试重复添加同一个文件，它根本不起作用。在这种情况下，代码所做的只是对您放入数组中的每个文件进行一次广告。

如果用同一个文件填充 5 个元素的数组，则生成的 PDF 将只有 1 页对应于数组中的文件。如果您填写 2（即使您替换了数组中的名称），则生成的 PDF 将只有 2 页（每个文件一个）

有什么方法可以将同一文件多次添加到 PDF 中？

标签： excelvbapdf