求解。。。
引用pdfbox,执行下面代码
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104162&skin=0
Dim doc As org.apache.pdfbox.pdmodel.PDDocument = Nothing
Try
doc = org.apache.pdfbox.pdmodel.PDDocument.load("d:\abc.pdf")
Dim pages = doc.getDocumentCatalog().getAllPages()
Dim pdfStripper = new org.apache.pdfbox.util.PDFTextStripper
Dim text = pdfStripper.getText(doc)
msgbox(text) ‘中文会出现乱码(问号),数字和字母则没问题。
catch ex As exception
msgbox(ex.message)
Finally
If doc IsNot Nothing Then
doc.close()
End If
End Try