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

云涵634

我只想要打印这一个功能，有没有更轻量级插件

opiona

云涵634 发表于 2024-2-23 18:00
我只想要打印这一个功能，有没有更轻量级插件

那不是有纯VBA代码吗  不用插件也能实现

云涵634

opiona 发表于 2024-2-23 20:47
那不是有纯VBA代码吗  不用插件也能实现

我们单位禁用wps和记事本打印文档，我每次都是转pdf再用谷歌打印，有什么插件能够直接打印吗。

opiona

云涵634 发表于 2024-2-24 15:00
我们单位禁用wps和记事本打印文档，我每次都是转pdf再用谷歌打印，有什么插件能够直接打印吗。

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

伶俐的毛豆

专家级别，向老师学习

opiona

纯VBA代码  实现: PDF另存为图片文件

1. Option Explicit  '//强制声明变量
   
2. 
   
3. Sub TEST()
   
4.     Dim PathPDF As String, PathJPEG As String
   
5.     PathPDF = ThisWorkbook.Path & "\TEST.pdf"
   
6.     PathJPEG = ThisWorkbook.Path & "\图片.JPEG"
   
7.     Call SetPDFtoJPG(PathPDF:=PathPDF, PathJPEG:=PathJPEG)
   
8. End Sub
   
9. 
   
10. Sub SetPDFtoJPG(ByVal PathPDF As String, Optional ByVal PathJPEG As String = "")
    
11.     Rem 将PDF文件另存为图片文件, 扩展名: jpeg
    
12.     Rem PathPDF    PDF文件全路径
    
13.     Rem PathJPEG   图片文件全路径 可选, 默认=""  和 PathPDF 同名  类似: 图片_页面_1,图片_页面_2
    
14.    
    
15.     Dim oaapp As New Acrobat.AcroApp
    
16.     Dim oaavd As New Acrobat.AcroAVDoc
    
17.     Dim oapdd As Acrobat.AcroPDDoc
    
18.     Dim i As Long
    
19.     Dim jso As Object
    
20.     i = oaapp.Show
    
21.     i = oaavd.Open(PathPDF, "")
    
22.     Set oapdd = oaavd.GetPDDoc()
    
23.     Set jso = oapdd.GetJSObject
    
24.     If PathJPEG = "" Then PathJPEG = Mid(PathPDF, 1, Len(PathPDF) - 4) & ".jpeg"
    
25.     jso.SaveAs PathJPEG, "com.adobe.acrobat.jpeg"
    
26.     i = oaavd.Close(1)
    
27.     i = oaapp.Hide
    
28.     i = oaapp.Exit
    
29.     Set jso = Nothing
    
30.     Set oaavd = Nothing
    
31.     Set oaapp = Nothing
    
32. End Sub

复制代码

opiona

如果对发票识别精度要求比较高
可以试试VBA通过插件调用百度的OCR识别: 增值税发票-身份证-银行卡

https://club.excelhome.net/thread-1682561-1-1.html

马小呆

请问一下大神，可否批量把多个PDF（类似发票），截图复制到Excel中呢？

opiona

马小呆 发表于 2024-3-7 10:02
请问一下大神，可否批量把多个PDF（类似发票），截图复制到Excel中呢？

将PDF另存为图片  然后再放到Excel中
106楼 有纯VBA PDF转图片的代码

马小呆

opiona 发表于 2024-3-7 14:35
将PDF另存为图片  然后再放到Excel中
106楼 有纯VBA PDF转图片的代码

谢谢回复，你上面的代码能不能批量把多个PDF，另存为图片呢？

再个就是用户定义类型未定义