PDF文本内容提取到TXT文件
时 间:2011-10-08 09:40:10
作 者:叶海峰 ID:31 城市:广州
摘 要:提取PDF文件的文本内容,并可以设定需要提取的页码翻页,生成为TXT文件
正 文:
提取PDF文件的文本内容,需要引用Acrobat库,Acrobat7.0,9.0测试通过,大部分代码在网上收集回来,并非原创,如运行过程中出现ActiveX部件不能创建对象的提示,则有可能是Acrobat库引用失败,请重新安装完整版的Acrobat
Sub PdfToTxT()
Dim MyPdf As AcroPDDoc
Dim MyPageHilite As AcroHiliteList
Dim PageSelect As AcroPDTextSelect
Dim i As Integer
Dim pdfdata As String
Dim OpenResult, HiliteResult
Dim pagenumber As Integer
Dim myPDFPage As AcroPDPage
Open "c:\1.txt" For Output As #1
Set MyPdf = CreateObject("acroexch.pddoc")
OpenResult = MyPdf.Open("c:\2007年半年报摘要.pdf")
For pagenumber = 0 To MyPdf.GetNumPages - 1
Set myPDFPage = MyPdf.AcquirePage(pagenumber)
Set MyPageHilite = CreateObject("acroexch.hilitelist")
HiliteResult = MyPageHilite.Add(0, 9000)
Set PageSelect = myPDFPage.CreatePageHilite(MyPageHilite)
For i = 0 To PageSelect.GetNumText - 1
pdfdata = pdfdata & PageSelect.GetText(i)
Next
Print #1, pdfdata
pdfdata = ""
Set myPDFPage = Nothing
Set MyPageHilite = Nothing
Set PageSelect = Nothing
Next
Set MyPdf = Nothing
Close #1
End Sub
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)