VBA如何编辑PDF文件内容

Sub VBA打开PDF文件_芐雨() CreateObject("Wscript.Shell").Run ("pdf文件路径+名称") ' 如:CreateObject("Wscript.Shell").Run ("F:\pdf\ABC.pdf") End Sub

两种常用的合并软件及合并方法。

Adobe Acrobat XI 和PDFBinder

方法/步骤1

1、运行Aaobe acrobat ，然后点击“创建”—“合并文件到单个PDF”，或者点击“ 创建”右侧的“合并”—“合并文件到单个PDF”。

2、d出“合并文件”的界面，点击“添加文件”—选择“添加文件”/“添加文件夹”/“重新使用文件”来进行添加要合并的PDF文件。

3、d出“添加文件”的界面，选择好要合并的PDF文件后，点击“添加文件”，完成要合并pdf文件的添加。

4、看到文件已添加完成，如果要调整合并文件的顺序，可以选中该文件然后用左下角的“向上”、“向下”按键来进行顺序的调整，调整完毕后点击右下角的“合并文件”按键。如果只想合并已添加单个pdf文件中的某几个页面可以通过“选择页面”选取想要添加的页面。

5、合并完成以后，会直接打开合并好的文件，名字一般为“组合1”，并自动d出“另存为”窗口，根据需要变更文件点击保存即可把合并好的文件保存下来。

方法/步骤2

运行PDFBinder，d出PDF合并器功能界面，点击“添加文件”，添加要合并的PDF文件。

在打开界面选择好要合并的PDF文件后，点击“打开”，完成要合并pdf文件的添加。

下图可以看到文件已添加完成，如果要调整合并文件的顺序，可以选中该文件然后用功能区的“向上”、“向下”按键来进行顺序的调整，调整完毕后点击“合并！”按键。

在d出的“另存为”界面输入文件名，点击保存完成文件合并，打开文档可以看到文档已合并成功。

首先，加载引用，如图

然后，在打印机中对Acrobat Distiller的打印进行设置设置（必须，否则转化出错！）

Public Sub MakePDF(ByVal strPDFFileName As String)

          Dim strPSFileName As String

          Dim xlWorksheet As Worksheet

        Dim objPdfDistiller As PdfDistiller

          strPSFileName = Left(strPDFFileName, InStrRev(strPDFFileName, "/")) &"tmpPostScript.ps"

          Set xlWorksheet = ActiveSheet

        Call xlWorksheet.PrintOut(copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=strPSFileName)

          Set objPdfDistiller = New PdfDistiller

        Call objPdfDistiller.FileToPDF(strPSFileName, strPDFFileName, "")

          Call Kill(strPSFileName)

      End Sub

不明白为什么不用PDF插件直接生成PDF文档？

---