vb打开pdf文档然后另存为，我根据资料编写了如下，但是无法打开请高手帮我指点一下？

Question

使用vb编程编写程序打开pdf文件然后另存为操作。请问如何编写代码？
请大侠帮我改改。非常感谢！
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

Answer 1

On Error Resume Next
必须去掉这一句，否则你都不知道在哪一行出错的