vba - 使用 VBA 将多个 PDF 合并为单个 PDF

Question

我正在处理将 14 个单独的 PDF 合并到单个 PDF 文件的要求。我还想在合并后为每个页面添加页码。

任何人都知道如何使用 VBA 在 PDF 文件中添加页码？

我正在使用 MS-Access 2010 VBA 进行编码并生成 PDF，我使用的是 Adob​​e Acrobat Standard。

Answer 1

Path = "F:\Target.pdf"
'Path = Wscript.Arguments.Item(0)

Set App = CreateObject("Acroexch.app") 
app.show
Set AVDoc = CreateObject("AcroExch.AVDoc") 
Set AForm = CreateObject("AFormAut.App") 'from AFormAPI


If AVDoc.Open(Path,"") Then 
  '//write JS-Code on a variable
  Ex = "  // Set Footer PageNo centered  "&vbLF _
  & "  var Box2Width = 50  "&vbLF _
  & "  for (var p = 0; p < this.numPages; p++)   "&vbLF _
  & "   {   "&vbLF _
  & "    var aRect = this.getPageBox(""Crop"",p);  "&vbLF _
  & "    var TotWidth = aRect[2] - aRect[0]  "&vbLF _
  & "     {  var bStart=((TotWidth/2)-(Box2Width/2)) " & vbLf _
  & "         var bEnd=((TotWidth/2)+(Box2Width/2)) + 5  "&vbLF _
  & "         var fp = this.addField(String(""xftPage""+p+1), ""text"", p, [bStart,45,bEnd,15]);   "&vbLF _
  & "         fp.value = ""Page: "" + String(p+1)+ ""/"" + this.numPages;  "&vbLF _
  & "         fp.textSize=9;  fp.readonly = true;  "&vbLF _
  & "         fp.alignment=""right"";  "&vbLF _
  & "     } "&vbLF _
  & "   }  "

'//Execute JS-Code
AForm.Fields.ExecuteThisJavaScript Ex

App.Exit

end if