Vba中对pdf进行操作

在VBA中，可以通过Adobe Acrobat或者其他第三方软件对PDF文件进行操作，例如：

1. 打开PDF文件：

使用Adobe Acrobat：

Dim AcroApp As Acrobat.CAcroApp
Dim AcroAVDoc As Acrobat.CAcroAVDoc
Dim AcroPDDoc As Acrobat.CAcroPDDoc

Set AcroApp = CreateObject("AcroExch.App")
Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
AcroAVDoc.Open "C:\test.pdf", "Acrobat"
Set AcroPDDoc = AcroAVDoc.GetPDDoc

使用第三方软件：

Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.Open "C:\test.pdf"

2. 读取PDF文本内容：

使用Adobe Acrobat：

Dim AcroApp As Acrobat.CAcroApp
Dim AcroAVDoc As Acrobat.CAcroAVDoc
Dim AcroPDDoc As Acrobat.CAcroPDDoc
Dim AcroText As Acrobat.CAcroPDTextSelect

Set AcroApp = CreateObject("AcroExch.App")
Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
AcroAVDoc.Open "C:\test.pdf", "Acrobat"
Set AcroPDDoc = AcroAVDoc.GetPDDoc
Set AcroText = CreateObject("AcroExch.PDTextSelect")
AcroText.SelectAll
MsgBox AcroText.Text

使用第三方软件：

Dim objFSO As Object
Dim objFile As Object
Dim strText As String

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\test.pdf", 1)
strText = objFile.ReadAll
objFile.Close
MsgBox strText

3. 将Word文档转换为PDF：

使用Adobe Acrobat：

Dim AcroApp As Acrobat.CAcroApp
Dim AcroAVDoc As Acrobat.CAcroAVDoc
Dim AcroPDDoc As Acrobat.CAcroPDDoc
Dim AcroJob As Acrobat.CAcroDistiller

Set AcroApp = CreateObject("AcroExch.App")
Set AcroJob = CreateObject("AcroDistiller")
AcroJob.Create "C:\test.pdf", "C:\test.doc", ""

使用第三方软件：

Dim objWord As Object
Dim objDoc As Object

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("C:\test.doc")
objDoc.ExportAsFixedFormat OutputFileName:="C:\test.pdf", ExportFormat:=17
objDoc.Close False
objWord.Quit False