ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 房振宇rain

[求助] word 批量转换成pdf

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2013-7-7 22:29 | 显示全部楼层
终于找到好东东啦。1~@##¥%¥#

TA的精华主题

TA的得分主题

发表于 2013-8-20 16:30 | 显示全部楼层
luckfish45 发表于 2012-1-20 20:58
今天下午有空,帮你编了个 word批量打印助手,原创啊:),使用方法见下面的图,我这个程序你只要把包含doc ...

这个挺好用的,但是能不能实现批量转换的同时批量重命名,就是说转成的PDF文件和原来的Word文件的名称是不一样,批量转换时还是要一个一个改名字,这样也很麻烦,有没有更简便的方法实现,求指导

TA的精华主题

TA的得分主题

发表于 2013-8-20 17:33 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
  1. Sub BatchWORD2PDF()
  2.      Dim SplitPos As Integer, DotPos As Integer, FullPath As String
  3.      Dim fdPath As Variant
  4.      Dim str As String, n As Long, fd As FileDialog, Ext As String
  5.      Dim t
  6.      t = Timer
  7.      On Error GoTo err
  8.      Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  9.      With fd
  10.          .Title = "选择目标文件夹"
  11.          If .Show = -1 Then fdPath = .SelectedItems(1) Else Exit Sub
  12.      End With
  13.      str = Dir(fdPath & "\*.doc")  '获取文件名
  14.      While Len(str) > 0
  15.          n = n + 1
  16.          Documents.Open filename:=fdPath & "" & str  '打开文件
  17.          Ext = CreateObject("Scripting.FileSystemObject").GetExtensionName(str) 'FSO获取扩展名         
  18.          'DotPos = InStrRev(str, ".")          'VBA自身方法获取扩展名
  19.          'If DotPos = 0 Then DotPos = Len(str)
  20.          'Ext = Mid(str, DotPos + 1)         
  21.          ActiveDocument.ExportAsFixedFormat OutputFileName:=(fdPath & "" & Replace(str, Ext, "pdf")), _
  22.                                             ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
  23.                                             wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
  24.                                             Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
  25.                                             CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
  26.                                             BitmapMissingFonts:=True
  27.          ActiveDocument.Close False
  28.          str = Dir()
  29.      Wend
  30.      Set fd = Nothing
  31. err:
  32. End Sub
复制代码
还未添加子目录递归。高手添加吧。

TA的精华主题

TA的得分主题

发表于 2013-11-27 09:41 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
建议直接用adobe acrobat, 多个文件可以一次性添加进去,还可以调整顺序,特别是质量很好

TA的精华主题

TA的得分主题

发表于 2014-1-2 22:17 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-4-27 19:10 | 显示全部楼层
luckfish45 发表于 2012-1-20 20:58
今天下午有空,帮你编了个 word批量打印助手,原创啊:),使用方法见下面的图,我这个程序你只要把包含doc ...

这个软件只能调用Tin月PDF?我调用了一个PDF XChanger Printer 2012好像不执行。
希望您有时间能更新下。

TA的精华主题

TA的得分主题

发表于 2014-4-28 16:57 | 显示全部楼层

顶一下,。。。。。。。。。。

TA的精华主题

TA的得分主题

发表于 2014-4-30 15:33 | 显示全部楼层
luckfish45 发表于 2012-1-20 20:58
今天下午有空,帮你编了个 word批量打印助手,原创啊:),使用方法见下面的图,我这个程序你只要把包含doc ...

大侠,为什么有木马???5555555

TA的精华主题

TA的得分主题

发表于 2014-4-30 15:37 | 显示全部楼层
loquat 发表于 2014-4-27 19:10
这个软件只能调用Tin月PDF?我调用了一个PDF XChanger Printer 2012好像不执行。
希望您有时间能更新下。 ...

为什么我下了这个,检查说有木马?您那里有这种情况么?

TA的精华主题

TA的得分主题

发表于 2014-4-30 16:04 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
黎明体验 发表于 2014-4-30 15:37
为什么我下了这个,检查说有木马?您那里有这种情况么?

无此情况。。。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-4 00:58 , Processed in 0.034106 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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