2016-08-23 281 views
0

我正在寫一個宏來使用Excel 2013和Adobe Acrobat XI在一些pdf文檔中搜索特定文本(超過10個字),參考:Adobe Acrobat 10.0類型庫。錯誤450當使用AcroExch.AVdoc.Open打開使用vba的pdf文件

我發現這個代碼在網上開始

Sub findtext() 
    'Initialize Acrobat by creating App object 
    Set PDFApp = CreateObject("AcroExch.App") 

    'Set AVDoc object 
    Set PDFDoc = CreateObject("AcroExch.AVDoc") 

    'PDF path 
    PDFPath = "C:\Users\abc\Desktop\text.pdf" 

    'Open the PDF 
    PDFDoc.Open(PDFPath) 

    ...... 

END Sub 

運行一行行的代碼。前三行工作正常。

當行PDFDoc.Open(PDFPath),它返回錯誤450

我在網上搜索參數或無效的屬性賦值錯誤號碼時,Acrobat論壇,#1,你的名字.. 。並且找不到答案...

有沒有其他人遇到過這個問題?

我很好奇它爲什麼會發生,以及如何解決它。

在此先感謝。

回答

0

你可以嘗試下面的代碼,看看你是否可以解決這個錯誤。

PDFDoc.Open PDFPath 「」

+0

謝謝!它的工作原理 – Yikun

+0

PDFDoc.Open(PDFPath, 「」)也適用。似乎不能忽視「」 – Yikun