回复 alin 的帖子
大侠 你好！
我也需要用vb编程打开pdf文件然后另存为pdf文件，请问代码如何编写？我已经引用了adobe acrobat7.0
我从网上拷贝过来但是还是有很多错误，可否抽空帮我改改
非常感谢
Private AcroXApp As CAcroApp
Private AcroXAVDoc As CAcroAVDoc
Private AcroXPDDoc As CAcroPDDoc
Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.Filter = "*.pdf|*.pdf"
CommonDialog1.ShowOpe
Set AcroXApp = CreateObject("AcroExch.App")
Set AcroXApp = CreateObject("Acrobat.CAcroApp") '''''''''''''''''''创建对象
Set AcroXPDDoc = AcroXApp.acrobat.CAcroPDDoc.Open(CommonDialog1.filename) '打开已经存在文件"
Set AcroXPAVDoc = AcroXApp.CAcroPDDoc.Open(CommonDialog1.filename) '打开已经存在文件"
AcroXApp.DisplayAlerts = False
AcroXApp.Visible = True '''''''''''''''''''''''''''''''''''''''''''设置E象可见
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
End With
acroaxapp.acrobat.CAcroPDDoc.SaveAs "d:\已读文件" & Mid(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, "\") + 1) & "."
acroaxapp.acrobat.CAcroApp.Quit
AcroApp.quit
end sub
alin 发表于 2007-10-11 11:43
Acrobat Prof. 6 should be OK. The type library file is acrobat.tlb which comes with the full version ...
AcroExch对象需要基于一个拥有授权的Acrobat才能创建
页:
1
[2]