PDF插件 for VBA 合并,提取,旋转等

rirywrr

膜拜大神，

opiona

liujunwei4321 发表于 2023-12-17 23:09
PDFium库是开源的，有没有可能换成这个库？

现有插件式侧重操作PDF, 可以直接代码返回属性或执行


PDFium库侧重的是PDF的浏览  
他主要在控件层面引用, 还不会从vb.net控件在VBA环境内的应用

chinalqw

太牛了，一定好好学习！

ywzx703

opiona 发表于 2023-8-3 10:58
纯VBA代码  合并多个PDF文件成一个PDF文件

是需要Adobe库吗

opiona

ywzx703 发表于 2024-1-20 09:15
是需要Adobe库吗

纯VBA需要安装, 插件版本不需要

opiona

纯VBA代码实现添加水印文字

1. 
   
2. Sub TEST()
   
3.     Dim Path, PathB, StrX As String
   
4.     Dim IntAngle, IntFont As Integer
   
5.     Dim DouZoom, DouTSC As Double
   
6.     Path = ThisWorkbook.Path & "\1.pdf"
   
7.     PathB = ThisWorkbook.Path & "\4.pdf"
   
8.     StrX = "Watermarks TEST"
   
9.    
   
10.     IntFont = 40
    
11.     IntAngle = 30
    
12.     DouZoom = 1.5
    
13.     DouTSC = 0.3
    
14.     Call PDFWatermark(Path:=Path, StrX:=StrX, PathB:=PathB, IntFont:=IntFont, DouZoom:=DouZoom, IntAngle:=IntAngle, DouTSC:=DouTSC)
    
15. End Sub
    
16. 
    
17. Sub PDFWatermark(ByVal Path As String, ByVal StrX As String, Optional ByVal PathB As String = "", Optional ByVal IntFont As Integer = 20, Optional ByVal DouZoom As Double = 1, Optional ByVal IntAngle As Integer = 45, Optional ByVal DouTSC As Double = 0.3)
    
18.     Rem 添加PDF水印
    
19.     Rem Path           原始PDF文件全路径
    
20.     Rem StrX            水印文字;  参数1: 水印内容,换行使用 \r     好像汉字会乱码
    
21.     Rem PathB         保存PDF文件全路径
    
22.      Rem IntFont      字体大小=20;   参数4: 字体大小
    
23.     Rem DouZoom  显示倍数=1;    参数16: 水印的比例，其中1.0是100%。-1指定水印应适合于页面，同时保持其比例。默认值是1
    
24.     Rem IntAngle     旋转度数=45;  参数18: 逆时针旋转度数,默认0
    
25.     Rem DouTSC      透明度数=0.3;  参数19: 水印是否(0,1)透明,默认1不透明
    
26.    
    
27.     Rem  引用:    Adobe Acrobat X.0 Type Library  和 AcroBrokerLib
    
28.     Rem  Call PDFWatermark(Path, StrX, PathB)
    
29.    
    
30.     Rem 下面这个用法是 加字符水印(AP - 100), 水印系统参数全部使用系统默认的:
    
31.     Rem  jso.addWaterMarkFromText ("AP-100")
    
32.    
    
33.     Rem 下面这个用法是添加字符水印(watermarks TEST),带各种水印参数:
    
34.     Rem 1=文本,2=对齐,3=字体,4=字体大小
    
35.     Rem 5=颜色,6=开始页,7=结束页,8=真值在水印上
    
36.     Rem 9=屏幕显示水印,10=打印时有水印,11=水印水平位置,12=水印垂直位置
    
37.     Rem 13=水平位移值,或百分比,14=垂直位移值,或百分比,15=位移适用百分比,16=显示倍数
    
38.     Rem 17=保持水印自身大小,18=角度,19=透明度或灰度
    
39.    
    
40.     Dim pdApp As Acrobat.AcroApp
    
41.     Dim pdDoc As Acrobat.AcroPDDoc
    
42.     Dim pdPage As Acrobat.AcroPDPage
    
43.     Dim jso As Object
    
44.     Dim IntPageCount, IntStarPage, IntEndPage As Integer   '//页码
    
45.    
    
46.     Set pdApp = CreateObject("AcroExch.App")
    
47.     Set pdDoc = CreateObject("AcroExch.PDDoc")
    
48.     pdDoc.Open (Path) '这里加个循环变量就可以实现动态的打开指定的pdf文件
    
49.     Set jso = pdDoc.GetJSObject
    
50.    
    
51.     IntPageCount = pdDoc.GetNumPages   '//页码总数量
    
52.     IntStarPage = 0       '//参数:6=开始页 第一页从0 开始
    
53.     IntEndPage = IntPageCount - 1    '//参数:7=结束页  从0 开始  所以 -1
    
54. 
    
55.     Call jso.addWaterMarkFromText(StrX, jso.app.Constants.Align.Center, jso.Font.Helv, IntFont _
    
56.         , jso.Color.Black, IntStarPage, IntEndPage, True _
    
57.         , True, True, jso.app.Constants.Align.Center, jso.app.Constants.Align.Center _
    
58.         , 0, 0, False, DouZoom _
    
59.         , False, IntAngle, DouTSC)
    
60.    
    
61.     If PathB = "" Then PathB = Path
    
62.     pdDoc.Save 1, PathB  '这里可以是不同于打开的pdf文件名,相当于另存为;如果是和打开的pdf文件名相同,自动保存不提示
    
63.     pdDoc.Close
    
64.     Set pdDoc = Nothing
    
65.     Set pdApp = Nothing
    
66.    
    
67. End Sub
    
68. 
    

复制代码

opiona

纯VBA代码: 打印PDF文件  可以指定页码  需要安装Adobe

1. 'Rem **********************************
   
2. 'Rem *******  北极狐工作室出品  ******
   
3. 'Rem *******  QQ：14885553       *****
   
4. 'Rem **********************************
   
5. Option Explicit  '//强制声明变量
   
6. 
   
7. Sub TEST()
   
8.     Dim PathPDF  As String
   
9.     PathPDF = ThisWorkbook.Path & "\630.PDF"
   
10.     Call PrintPDFFile(PathPDF:=PathPDF, FirstPage:=1, LastPage:=5)
    
11. End Sub
    
12. 
    
13. Sub PrintPDFFile(ByVal PathPDF As String, Optional ByVal FirstPage As Long = 1, Optional ByVal LastPage As Long = 0)
    
14.     Rem PathPDF   需要打印的PDF文件的全路径
    
15.     Rem FrstPage   要打印的第一页 默认=1
    
16.     Rem LastPage  要打印的最后一页 默认=0 全部
    
17.     Rem 必要时需引用：Adobe Acrobat 10.0 Type Library  （版本可能不一样）
    
18.    
    
19.     Dim AcroExchApp As Acrobat.CAcroApp
    
20.     Dim AcroExchAVDoc As Acrobat.CAcroAVDoc
    
21.     Dim AcroExchPDDoc As Acrobat.CAcroPDDoc
    
22.     Dim NumPage As Long
    
23.     Set AcroExchApp = CreateObject("AcroExch.App")
    
24.     Set AcroExchAVDoc = CreateObject("AcroExch.AVDoc")
    
25.     Rem 打开PDF Open the [PathPDF] pdf file
    
26.     AcroExchAVDoc.Open PathPDF, "1"
    
27.     Rem 转为另一个对象 主要是获取页码 Get the PDDoc associated with the open AVDoc
    
28.     Set AcroExchPDDoc = AcroExchAVDoc.GetPDDoc
    
29.     Rem 获取页码, 第一页=0  Get the number of pages for this pdf
    
30.     NumPage = AcroExchPDDoc.GetNumPages - 1
    
31.     Rem 内部的页码是从0开始的  就是第一页的序号=0
    
32.     If FirstPage > 0 Then FirstPage = FirstPage - 1
    
33.     If LastPage > 0 Then
    
34.         LastPage = LastPage - 1
    
35.     Else
    
36.         LastPage = NumPage
    
37.     End If
    
38.     Rem 防止指定的最后一页 超过实际页数
    
39.     If LastPage > NumPage Then LastPage = NumPage
    
40.     Rem 开始打印
    
41.     Rem Call AcroExchAVDoc.PrintPages(FirstPage, LastPage, 2, 1, 1)  '//打印指定范围的页面，显示打印对话框。PrintPages始终使用 WIN中的默认打印机设置?INI?
    
42.     Call AcroExchAVDoc.PrintPagesSilent(FirstPage, LastPage, 2, 1, 1)   '//打印指定范围的页面而不显示任何对话框
    
43.     Rem 关闭Adobe对象
    
44.     AcroExchApp.Exit
    
45.     AcroExchAVDoc.Close (False)
    
46.     AcroExchPDDoc.Close
    
47. End Sub

复制代码

opiona

重复发帖  删除了

ywzx703

opiona 发表于 2024-1-20 11:03
纯VBA需要安装, 插件版本不需要

感谢回复，合并PDF的功能我已经实现了

wnwbaa

       这个很有用，特别是在没有安装adobe acrobat dc 的电脑上。今天回去逐个测试学习一下，谢谢大神！