EXCELvba 封装函数之裁剪PDF文件操作

bluesky_0

原帖在这里
https://club.excelhome.net/thread-1561115-1-1.html

封装函数源代码如下:

1. Public Function CroppedPDF_standard(nameFile As String, W_Left As Long, W_Right As Long, L_Top As Long, L_bottom As Long, outputPath As String) As String
   
2.     '根据特定数值裁剪PDF页面
   
3.     'nameFile 文件地址和名称,
   
4.     'W_Left,W_Right PDF宽度方向的裁剪
   
5.     'L_Top,L_bottom PDF长度方向的裁剪
   
6.     'outputPath 裁剪后的文件存放地址和文件名
   
7.     Dim acroRect, jso As Object
   
8.     Dim pdf1 As Acrobat.CAcroPDDoc
   
9.     Dim pagenum As Integer, I2 As Integer
   
10.     Set pdApp = CreateObject("AcroExch.App")
    
11.     Set acroRect = CreateObject("AcroExch.Rect")
    
12.     Set pdf1 = CreateObject("AcroExch.PDDoc")
    
13.     If pdf1.Open(nameFile) Then
    
14.         Set jso = pdf1.GetJSObject
    
15.         pagenum = pdf1.GetNumPages() '得到PDF页数
    
16.         For I2 = 1 To pagenum '每dpf文件多少页
    
17.             Set acroRect = CreateObject("AcroExch.Rect")
    
18.             '设置裁剪的PDF页面矩形设置
    
19.             acroRect.Left = W_Left '矩形以左边为准,向右偏移的数量
    
20.             acroRect.Right = W_Right '矩形的向右长度,以左边为准
    
21.             acroRect.Top = L_Top '矩形以顶边为准向下偏移的数量
    
22.             acroRect.bottom = L_bottom  '矩形以底边为准向上偏移的数量
    
23.             CR = pdf1.CropPages(I2 - 1, I2 - 1, 0, acroRect) '裁剪页面
    
24.         Next
    
25.         
    
26.         exportCroppedPDF = outputPath '设定裁剪后的文件存放地址
    
27.         pdf1.Save 1, exportCroppedPDF '保存文件,覆盖不提示
    
28.         Set acroRect = Nothing
    
29.         CroppedPDF_standard = "文件裁剪OK"
    
30.     Else
    
31.         CroppedPDF_standard = "找不到文件" '
    
32.     End If
    
33.    
    
34.     pdf1.Close
    
35.     Set pdf1 = Nothing
    
36.     Set acroRect = Nothing
    
37.     Set jso = Nothing
    
38. End Function

复制代码

cyhwy

牛，能否将提取特定文本或表格封装为函数

opiona

不错  新知识!

bluesky_0

cyhwy 发表于 2024-4-9 20:04
牛，能否将提取特定文本或表格封装为函数

可以的,需要你具体明确需求,才能操作

bluesky_0

opiona 发表于 2024-4-9 20:57
不错  新知识!

互相学习,哈哈哈

bluesky_0

opiona 发表于 2024-4-9 20:57
不错  新知识!

互相学习,老哥很专业,我是业余的

cyhwy

期待下面的函数
1、提取pdf特定文本
function  takeTEXT(pdf文件名，第几段文本) as string

function takeTable(pdf文件名，第几个表格)   以数组形式返回表格内容

opiona

提取第几段文本  或者第几个表格还是有难度的
一般是提取全部或部分文本  再从文本中找
第几个表格 可能需要百度,阿里云的API来

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

bluesky_0

opiona 发表于 2024-4-10 23:39
提取第几段文本  或者第几个表格还是有难度的
一般是提取全部或部分文本  再从文本中找
第几个表格 可能 ...

还是老哥专业,
PDF表格,VBA怎么读取,我还没有研究过.

bluesky_0

cyhwy 发表于 2024-4-10 23:03
期待下面的函数
1、提取pdf特定文本
function  takeTEXT(pdf文件名，第几段文本) as string

可以搞下面的VBA函数.
function  takeTEXT(pdf文件名，指定文本的那段) as string
VBA处理PDF表格,我没有研究过,你看下 opiona 老是的帖子有没有解决方法