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更新查询】更新查...(05.15)
- 【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运行时错误-21472...(05.15)
- 【Access更新查询】更新查询如...(05.15)
- 日期不为空怎么写表达式?[字段名]...(05.14)
- 附件字段如何判断myPictrue...(05.13)
- Access链接表SQL SERV...(05.11)
- Access快速开发平台企业版--...(05.09)
- 新版铁路工程管理系统V2.0(05.08)
- Access快速开发平台企业版--...(05.07)
- 【Access Call用法学习】...(05.06)
- access软件网站长张志简介 (05.05)