VBA如何批量获取PDF文件中的内容

opiona

opiona 发表于 2013-2-19 18:52
附件内是VB内的实例，
PDF控件是正式版了，有注册码了
但是要求PDF是能编辑的那种，不要是扫描的！

PDF控件是正式版

YincyHe

Jingle6688 发表于 2013-2-17 17:14
谢谢，好像这个只是浏览内容啊。我现在是要读取PDF里面的字符。

你找到方法读取内容了吗，我也想知道

AS850629754

今天遇到了同样的问题，要根据PDF的内容对文件重命名
上网查了资料，可能是因为公司没装完整的软件，用不了
后来想了一个办法
用PDF阅读器打开文件
模拟键盘快捷键将文件另存为txt到桌面
手动把生成的TXT文件放到新文件夹
提取TXT文件指定行的文本
因为是模拟键盘按键操作，有时会漏掉几个文件

1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. Sub A_PDF转TXT()
   
3. 
   
4. Dim fsys As New FileSystemObject
   
5. Dim Data_path As String
   
6. 
   
7. Dim n As Integer
   
8. 
   
9. 
   
10. t = Timer
    
11. Data_path = ThisWorkbook.Path & "\数据源"
    
12. 
    
13. n = 1
    
14. 
    
15. Sheets("列表").Cells.Clear
    
16. Sheets("列表").[A1：C1].Value = Array("PDF", "TXT", "公司")
    
17. 
    
18. Set xfolder = fsys.GetFolder(Data_path)
    
19. For Each xfile In xfolder.Files
    
20.     If xfile.Name Like "*.pdf" Then
    
21.         n = n + 1
    
22.         Sheets("列表").Cells(n, 1).Value = xfile.Name
    
23.         Sheets("列表").Cells(n, 2).Value = Replace(xfile.Name, "pdf", "txt")
    
24.    
    
25.         Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & xfile.Path
    
26.         Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & xfile.Path
    
27.         
    
28.         Sleep 500
    
29.         Application.SendKeys "%F"
    
30.         Sleep 500
    
31.         Application.SendKeys "V"
    
32.         Sleep 500
    
33.         Application.SendKeys "~"
    
34.         Sleep 500
    
35.         Application.SendKeys "%{F4}"
    
36. 
    
37.       
    
38.     End If
    
39. Next xfile
    
40. MsgBox ("运行结束，请将桌面的TXT文件放入TXT文件夹中。")
    
41. End Sub
    
42. Sub B_提取TXT公司并改名()
    
43. 
    
44. Dim fsys As New FileSystemObject
    
45. Dim Data_path1 As String
    
46. Dim Data_path2 As String
    
47. Dim n As Integer
    
48. 
    
49. Data_path1 = ThisWorkbook.Path & "\TXT"
    
50. Data_path2 = ThisWorkbook.Path & "\数据源"
    
51. 
    
52. n = 2
    
53. 
    
54. Do While Sheets("列表").Cells(n, 2).Value <> ""
    
55.     On Error Resume Next
    
56.     Set A = fsys.OpenTextFile(Data_path1 & Sheets("列表").Cells(n, 2).Value, 1)
    
57.     For i = 1 To 33
    
58.         A.ReadLine
    
59.     Next i
    
60.     Sheets("列表").Cells(n, 3).Value = A.ReadLine
    
61.     Name Data_path2 & Sheets("列表").Cells(n, 1).Value As Data_path2 & Sheets("列表").Cells(n, 3).Value & ".pdf"
    
62.     n = n + 1
    
63. Loop
    
64. 
    
65. End Sub
    
66. 
    
67. 
    

复制代码

根据PDF内容批量修改PDF文件名.zip (19.74 KB, 下载次数: 473)

2017-6-19 17:44 上传

点击文件名下载附件

fwy12

我也遇到同样的问题的，不知道有没有找到好的方法了。

quesonghe

opiona 发表于 2013-2-19 18:52
附件内是VB内的实例，和代码

PDF控件是正式版了，有注册码了

求解：1.能编辑的，不要扫描的那种，，不明白？2.控件part1~6,如何区分使用？谢了。

quesonghe

opiona 发表于 2013-2-19 18:52
附件内是VB内的实例，和代码

PDF控件是正式版了，有注册码了

完美注册的，是不是没水印了？

冬霜之子

AS850629754 发表于 2017-6-19 17:46
今天遇到了同样的问题，要根据PDF的内容对文件重命名
上网查了资料，可能是因为公司没装完整的软件，用不 ...

请问您为什么        
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & xfile.Path
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & xfile.Path
这个为什么要用两次呢？

ywzx703

AS850629754 发表于 2017-6-19 17:46
今天遇到了同样的问题，要根据PDF的内容对文件重命名
上网查了资料，可能是因为公司没装完整的软件，用不 ...

为什么提示找不到工程？

AS850629754

ywzx703 发表于 2019-8-20 10:25
为什么提示找不到工程？

前期绑定fso了吗？

AS850629754

冬霜之子 发表于 2019-8-18 12:48
请问您为什么        
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & xfile.Path
...

过了两年多了，忘了