vba 当前文件名_VBA实践+批量合并pdf

VBA实践+批量合并pdf

声明：文章仅供参考，尝试，请注意备份文件。

作用：把文件夹下若干个小文档合并成一个大文档。

以下代码创建一个空白pdf文档，然后依次把文件夹下的所有小pdf文档插入到该文档中，然后以“合并.pdf”保存在同一文件夹下。代码的运行环境为Win8.1，Word2010 VBA，Acrobat Pro DC，在本机测试成功。为保证小文档插入的顺序正确，请用数字序号命名文档，且序号位置文件名开头，如001.pdf，002.pdf，0不可省略。

使用到的主要方法为PDDoc.InsertPages，它的作用是在当前文档中的指定页之后插入原文档中的指定页，有5个参数：

nInsertPageAfter 在当前文档中哪一页后开始插入。Pdf文档的第一页是第0页。
iPDDocSource 原文档对象
nStartPage 从原文档中的哪一页开始。
nNumPages 要插入多少页。
bBookmarks 是否从原文档复制书签，如果为0，则不复制，为正数，则复制。

Sub 批量合并pdf()
'合并一个文件夹下的所有pdf文档
'为保证顺序正确，请用数字序号命名文档，且序号位置文件名开头，如001.pdf，002.pdf，0不可省略Dim pdfFolder As String, pdfName As String
Dim sPDdoc As New Acrobat.AcroPDDoc, tPDdoc As New Acrobat.AcroPDDoc
Dim PageNum As Long
pdfFolder = "F:userdataDesktopVBA实践+批量合并pdf" 'pdf文档目录
tPDdoc.Create '创建一个空白pdf文档，准备接收其他pdf文档
pdfName = Dir(pdfFolder) '读取第一个pdf文档名称Do While pdfName <> ""If sPDdoc.Open(pdfFolder & pdfName) Then  '打开文档PageNum = sPDdoc.GetNumPages '获得页数tPDdoc.InsertPages tPDdoc.GetNumPages - 1, sPDdoc, 0, PageNum, 0 '总是在tppdoc的最后一页的后面插入spddoc的所有页面sPDdoc.CloseEnd IfpdfName = Dir
LooptPDdoc.Save PDSaveFull, pdfFolder & "合并.pdf" '保存合并文件
tPDdoc.Close '关闭合并文件Set sPDdoc = Nothing
Set tPDdoc = Nothing
MsgBox "完成！"End Sub

vba 当前文件名_VBA实践+批量合并pdf相关推荐

Python办公自动化(三)｜批量合并PDF
分享一个实用的办公脚本:将多个PDF合并为一个PDF,例如我手上现在有如下3个PDF分册,需要整合成一个完整的PDF 如果换成你操作的话,是不是打开百度搜索:PDF合并,然后去第三方网站操作,可能会收 ...
cad批量打印快捷键_[效率]CAD批量打印和批量合并PDF
点击上方「蓝字」关注我们 ▍▍▍点此加入学习交流群~~~ 话不多说,直接上图! 有没有感觉到似曾相识,眼花缭乱如果你用普通的打印方式打印这些图纸,花你几分钟不足为奇,费脑又费眼睛的重复几十次操作,也 ...
python自动办公 pdf_Python办公自动化｜批量合并PDF，拿来就用
系列导读 Python办公自动化|从Word到Excelmp.weixin.qq.comPython办公自动化|从Excel到Wordmp.weixin.qq.com 大家好,今天分享一个实用的办 ...
python合并pdf 加书签_使用Python批量合并PDF文件(带书签功能)
1 #!/usr/bin/env python3 2 #-*- coding: utf-8 -*- 3 ''' 4 #文件名:pdfmerge.py5 本脚本用来合并pdf文件,输出的pdf文件按输入 ...
【日常】从批量合并 PDF 到 PyPDF2 的使用
序言临近卷铺走人因此有不少手续要办,提交文件遇到需要合并PDF文件的需求.恰好个人电脑还处于文件强制加密的状态,编辑文档保存会自动加密,出于某些原因不方便恢复到正常状态的备份,因此给合并PDF带来很 ...
vba 当前文件名_VBA代码解决方案第77讲内容：如何导出文件
大家好,我们今日继续讲解VBA代码解决方案的第77讲内容:如何导出文件,形成一个文本文件,如果需要将工作表中的数据保存为文本文件,可以创建一个文本文件用于保存数据. 应用于FileSystemObje ...
access vba代码大全_VBA 实践指南 -- VBA连接各种数据库
ADO 简介 ADO (ActiveX Data Objects,ActiveX数据对象)是Microsoft提出的应用程序接口(API)用以实现访问关系或非关系数据库中的数据.例如,如果您希望编写应 ...
极速系列05—python批量拆分/合并PDF文档
1 python按照页数拆分PDF文档目的: 将一个PDF文档按照指定的页数拆份额为多个文档思路: 使用PyPDF库中的PdfFileReader, PdfFileWriter类,这两个类是PyP ...
多html整理合并pdf
版权声明:本文为博主原创文章,转载请注明出处:https://blog.csdn.net/sc2079/article/details/106246106 -写在前面最近想提升自己的PPT制作 ...

vba 当前文件名_VBA实践+批量合并pdf

VBA实践+批量合并pdf

vba 当前文件名_VBA实践+批量合并pdf相关推荐

最新文章

热门文章