获取PDF文件页数

loquat

如果有文档不能成功获取，请跟帖

1. Function GetPages(FileName As String)   '变量为全路径文件名
   
2. Dim Match, Str$, P%
   
3. With CreateObject("scripting.filesystemobject").opentextfile(FileName)
   
4.     Str = .readall
   
5.     .Close
   
6. End With
   
7. P = 0
   
8. With CreateObject("vbscript.regexp")
   
9.     .Global = True
   
10.     .MultiLine = True
    
11.     .Pattern = "\/Count ([\d]+)"
    
12.     If .test(Str) Then
    
13.         For Each Match In .Execute(Str)
    
14.             If Val(Match.submatches(0)) > P Then P = Val(Match.submatches(0))
    
15.         Next Match
    
16.     End If
    
17. End With
    
18. GetPages = IIf(P = 0, "?", P)
    
19. End Function

复制代码

loquat

惯例沙个发。

413191246se

虽然仍然看不懂，但仍然祝愿 老朋友 loquat 过年好！春节好！合家欢乐！

dongdonggege

这个不算什么，如果能有AcroPDF1，能查看pdf文档内容，合并pdf文件，这个vb6里面有，但是我没AcroPDF1，所以没改编好。

dongdonggege

1. Private Sub CommandButton1_Click()
   
2. '工具-引用-Adobe PDF Reader
   
3. Dim Sfile As String
   
4. Sfile = "D:\10.pdf"
   
5. AcroPDF1.LoadFile (Sfile) '装载显示pdf图片
   
6. End Sub

复制代码

acropdf.dll放在C:\Windows\System32下，运行：regsvr32 acropdf.dll，窗体-工具箱-附加控件--Adobe PDF Reader，试试这个，读取pdf内容。