无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 1191|回复: 16
打印 上一主题 下一主题

[求助] 请大大推荐一下,批量word转PDF用什么软件,谢谢!

[复制链接]
1#
发表于 2024-2-8 21:44:41 | 显示全部楼层
本帖最后由 likeyouli 于 2024-2-8 21:46 编辑

vba
假如所有word文档均在D:\ceshi文件夹下,利用word自带输出为pdf即可。还专门找了几个word文件测试了一下,以下代码没问题。
Sub 转pdf()
Dim t As Document
ss = Dir("D:\ceshi\")
Do
Set t = Documents.Open("D:\ceshi\" & ss)
t.ExportAsFixedFormat outputfilename:="D:\ceshi\" & Left(ss, Len(ss) - 4) & ".pdf", exportformat:=wdExportFormatPDF
t.Close False
ss = Dir
Loop Until ss = ""
MsgBox "均已把word文档转换为pdf"
End Sub

点评

这个放VBA里很好用,自己测试了8个Word文档,一会儿全转好了。  详情 回复 发表于 2024-2-8 22:17

评分

参与人数 1无忧币 +1 收起 理由
2013ertert + 1 赞一个!

查看全部评分

回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-5-12 12:02

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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