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

Jingle6688

急需获取一批PDF文件中的某固定位置的内容，不知VBA是否能实现？请高手赐教，万分感谢！

lxw6

这个。。。太难了！因为不知道pdf中是文字还是图片。
你可以用solid converter  pdf之类的工具，先将pdf转换为word或excel，再进行操作。

excel2013可以直接打开pdf文件，可以阅读但不能编辑，你可以试试。我估计够呛

Jingle6688

lxw6 发表于 2013-2-16 16:07
这个。。。太难了！因为不知道pdf中是文字还是图片。
你可以用solid converter  pdf之类的工具，先将pdf转 ...

要取的内容是文字字符，有没有办法自动转化读取字符呢？

kangatang

肯定有办法。pdf好像有针对java的批处理接口。

smartsoft

我通常是将PDF当txt 读入内存，然后根据内容读出相关信息

opiona

http://club.excelhome.net/thread-910424-1-1.html
这个可以在Excel中浏览PDF，也可以查询PDF内容，
但是目前好像是不支持汉语内容查询！

Jingle6688

smartsoft 发表于 2013-2-16 19:07
我通常是将PDF当txt 读入内存，然后根据内容读出相关信息

具体可以用VBA实现么？我现在想用VBA写个macro批量读取PDF文件，不知是否可行？

Jingle6688

opiona 发表于 2013-2-17 11:39
http://club.excelhome.net/thread-910424-1-1.html
这个可以在Excel中浏览PDF，也可以查询PDF内容，
但是 ...

谢谢，好像这个只是浏览内容啊。我现在是要读取PDF里面的字符。

opiona

1. Private Sub SearchNext_Click() '//查找下一个
   
2.     PDFViewOCX.FindNextText
   
3. End Sub
   
4. 
   
5. Private Sub SearchPrevious_Click()
   
6.     PDFViewOCX.FindPreviousText '//查找上一个
   
7. End Sub
   
8. 
   
9. 
   
10. 
    
11. Private Sub SetSearchText_Click()
    
12.     PDFViewOCX.SetFindText SearchText.Text '//查找字符串，好像不支持汉语
    
13. End Sub

复制代码

opiona

附件内是VB内的实例，和代码

PDF控件是正式版了，有注册码了
但是要求PDF是能编辑的那种，不要是扫描的！
PDFView注册控件.part1.rar (500 KB, 下载次数: 1055)

2013-2-19 18:50 上传

点击文件名下载附件

PDFView注册控件.part2.rar (500 KB, 下载次数: 1131)

2013-2-19 18:50 上传

点击文件名下载附件

PDFView注册控件.part3.rar (500 KB, 下载次数: 1216)

2013-2-19 18:50 上传

点击文件名下载附件

PDFView注册控件.part4.rar (500 KB, 下载次数: 1247)

2013-2-19 18:50 上传

点击文件名下载附件

PDFView注册控件.part5.rar (500 KB, 下载次数: 1577)

2013-2-19 18:51 上传

点击文件名下载附件

PDFView注册控件.part6.rar (58.89 KB, 下载次数: 1134)

2013-2-19 18:51 上传

点击文件名下载附件

1. Dim nViewMode As Integer
   
2. Private Sub ActualSize_Click()
   
3.   PDFViewOCX.ZoomActualPage
   
4. End Sub
   
5. 
   
6. Private Sub FitPage_Click()
   
7.   PDFViewOCX.ZoomFitPage
   
8. End Sub
   
9. 
   
10. Private Sub FitWidth_Click()
    
11.   PDFViewOCX.ZoomFitWidth
    
12. End Sub
    
13. 
    
14. Private Sub Form_Load()
    
15. PDFViewOCX.SetRegCode "VERYPDF-PDFVIEWEROCX-08102820"   '完美使用注册码
    
16. End Sub
    
17. 
    
18. Private Sub NextPage_Click()
    
19.   PDFViewOCX.ViewNextPage
    
20. End Sub
    
21. 
    
22. Private Sub Open_Click()
    
23.   On Error GoTo EH
    
24.   CommonDialog1.CancelError = True
    
25.   CommonDialog1.Filter = "PDF Files (*.pdf)|*.pdf|"
    
26.   CommonDialog1.ShowOpen
    
27.   PDFViewOCX.OpenPDF CommonDialog1.FileName, "", ""
    
28.   nViewMode = 0
    
29. EH:
    
30. 
    
31. End Sub
    
32. 
    
33. Private Sub PreviousPage_Click()
    
34.   PDFViewOCX.ViewPreviousPage
    
35. End Sub
    
36. 
    
37. 
    
38. Private Sub RotateLeft_Click()
    
39.     PDFViewOCX.RotateViewLeft
    
40. End Sub
    
41. 
    
42. Private Sub RotateRight_Click()
    
43.     PDFViewOCX.RotateViewRight
    
44. End Sub
    
45. 
    
46. Private Sub SearchNext_Click()
    
47.     PDFViewOCX.FindNextText
    
48. End Sub
    
49. 
    
50. Private Sub SearchPrevious_Click()
    
51.     PDFViewOCX.FindPreviousText
    
52. End Sub
    
53. 
    
54. Private Sub SetSearchText_Click()
    
55.     PDFViewOCX.SetFindText SearchText.Text
    
56. End Sub
    
57. 
    
58. Private Sub ViewMode_Click()
    
59.     If nViewMode = 0 Then
    
60.         PDFViewOCX.ViewModeSinglePage
    
61.     ElseIf nViewMode = 1 Then
    
62.         PDFViewOCX.ViewModeFacing
    
63.     ElseIf nViewMode = 2 Then
    
64.         PDFViewOCX.ViewModeContinuous
    
65.     ElseIf nViewMode = 3 Then
    
66.         PDFViewOCX.ViewModeContinuousFacing
    
67.     End If
    
68.     nViewMode = nViewMode + 1
    
69.     If nViewMode >= 4 Then
    
70.         nViewMode = 0
    
71.     End If
    
72.   
    
73. End Sub
    
74. 
    
75. Private Sub ZoomRatio_Click()
    
76.   PDFViewOCX.Zoom 100
    
77. End Sub
    
78. 
    
79. Private Sub ZoomIn_Click()
    
80.   PDFViewOCX.ZoomIn
    
81. End Sub
    
82. 
    
83. Private Sub ZoomOut_Click()
    
84.   PDFViewOCX.ZoomOut
    
85. End Sub

复制代码