ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 534|回复: 18

[已解决] 在PDF文件中搜索关键字,找到后打印当前页

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-4-6 12:44 | 显示全部楼层 |阅读模式
本帖最后由 月关 于 2024-4-7 09:07 编辑

老师好!

工作上遇到个VBA读取PDF的问题,搜资料一直没解决,回家来求老师指点一二。(登陆的时候才发现已经好久好久没有回过家了)
是这样的,我需要一个多页的PDF文件中,搜索一个特定的关键字,如果找到了,就打印(只打印)当前页面。


附件是一个示例PDF,比如要搜索 1104718
诚望老师赐教,谢谢!


PDF示例.rar (10.67 KB, 下载次数: 21)

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-4-6 12:51 | 显示全部楼层
补充一句,我有安装 Adobe Acrobat软件

TA的精华主题

TA的得分主题

发表于 2024-4-6 15:55 | 显示全部楼层
关键字:test
GIF 2024-04-06 15-53-57.gif

Limonet.zip

563.16 KB, 下载次数: 21

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-4-6 15:55 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-4-6 16:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
acrobat最好,但不太熟悉。。。
最近又找到一个好玩具,mupdf的mutool命令行工具,和xpdf差不多也是免费的单文件工具
它强在内置了一个js环境,然后可以写js操作pdf,如图脚本很容易读懂
1. 打开一个pdf文档对象
2. 循环每一页,找需要的文本,如果找到就打印页号(从0开始的,所以打印时需要加1)
使用时只需要给mutool run命令两个参数,一是pdf文件名,二是要找的字符串,获得页码之后再用其他方法打印
这里就看出mutool不如acrobat全面,好像还不支持调打印机,不过可以方便的把很多个pdf里搜到的页合并成一个新pdf,最后只需要打印这个pdf就行,也算不错


批注 2024-04-06 155421.jpg

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-4-6 16:16 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-4-6 16:58 | 显示全部楼层

感谢老师!
我属于超级菜的那种,老师的代码还需要搜索相关资料学习消化一下。
这个可以控制只打印当前页面么?


TA的精华主题

TA的得分主题

 楼主| 发表于 2024-4-6 17:00 | 显示全部楼层
wanghan519 发表于 2024-4-6 16:05
acrobat最好,但不太熟悉。。。
最近又找到一个好玩具,mupdf的mutool命令行工具,和xpdf差不多也是免费的 ...

感谢老师!我比较菜,只会点VBA,JS有点超纲了

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-4-6 17:04 | 显示全部楼层
甘地降价 发表于 2024-4-6 15:55
AI答案:你这个需求适合用python很快很方便。

倒是学了一点点python,然后估摸着现在可以搞定90%,最后的打印估计搜搜相关资料也能搞个差不多,就是吧,还是想用VBA搞一搞,可能纯粹是习惯问题。
这两天搜了些Acrobat OLE的相关资料,想着找点时间学习一下,奈何英文有点菜。
python看看最后再说吧,好几个月没有打开过了。。。。

TA的精华主题

TA的得分主题

发表于 2024-4-6 21:08 | 显示全部楼层
pdfinfo example.pdf |find "Pages:">numpages.txt
GIF 2024-04-06 21-07-08.gif

Limonet.zip

1.02 MB, 下载次数: 13

评分

2

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-30 16:48 , Processed in 0.048407 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表