用EXCELvba对PDF文件进行批量裁剪操作

bluesky_0

hq200078 发表于 2022-11-14 11:56
请问删除指定页，怎么操作

详细解释见帖子: https://club.excelhome.net/thread-1646256-1-1.html
内容如下,可能有无效的代码,我是业务的,凑合用吧.

Private Sub CommandButton4_Click()
'每四页PDF保存第一页,删除2-4页
Dim pdApp As Acrobat.AcroApp
Dim pdDoc As Acrobat.AcroPDDoc
Dim pdPage As Acrobat.AcroPDPage
Dim jso As Object
Dim watermark As String, watermarkID As Integer, watermarkfile As String
Dim II As Integer, pagenum As Integer, delnum As Integer, ROW_DEL As Integer

Set pdApp = CreateObject("AcroExch.App")
Set pdDoc = CreateObject("AcroExch.PDDoc")
cropfile = ThisWorkbook.Path & "\" & Sheet1.Range("A" & 2)  '需要DEL文件名


pdDoc.Open (cropfile) '打开PDF文件
Set jso = pdDoc.GetJSObject
pagenum = pdDoc.GetNumPages() '得到页数
For II = 1 To pagenum \ 4
delnum = II '
OK = jso.DeletePages(delnum, delnum + 2)
Next
pdDoc.Save 1, cropfile & ".PDF" '保存文件,覆盖不提示
pdDoc.Close '关闭文件
Set pdDoc = Nothing
Set pdApp = Nothing
MsgBox "OK"
End Sub

yuhan4488

“bluesky_0”老师，我在工作中遇到很多pdf文件，页面大小不一，有大于A4的，有小于A4的，还有同一个pdf中有多种页面大小的，如何将这些pdf文件批量修改为A4大小？比如大于A4的，缩小到A4大小。
请老师赐教！

opiona

PDF相关的代码  支持一下

新手来习

谢谢分享，学习下

perfect131

参考：http://pdf-file.nnn2.com/?p=99
参考：http://pdf-file.nnn2.com/?p=111

pc_12

不错，值得学习。

bluesky_0

yuhan4488 发表于 2022-11-16 14:17
“bluesky_0”老师，我在工作中遇到很多pdf文件，页面大小不一，有大于A4的，有小于A4的，还有同一个pdf中 ...

1.如果是打印设置为A4,全部自动打印为A4,打印机选择 PDF print,选择打印机和效果见下面截图
2.裁剪,全部剪成同样大小  ;EXCEL VBA怎么裁剪 见 我的帖子: https://club.excelhome.net/thread-1561115-1-1.html



你看下那种满足你的需求

yuhan4488

bluesky_0 发表于 2022-11-16 15:27
1.如果是打印设置为A4,全部自动打印为A4,打印机选择 PDF print,选择打印机和效果见下面截图
2.裁剪,全部 ...

谢谢老师，用打印成A4的方法可行。

bluesky_0

perfect131 发表于 2022-11-16 14:36
参考：http://pdf-file.nnn2.com/?p=99
参考：http://pdf-file.nnn2.com/?p=111

都是日文....有点蒙,英文还好呢

smsn

问题在Adobe PDF 专业版，这玩意太大了，还收费。一般用浏览器另存拆页