Word转PDF的VBA脚本
2024-09-07 15:23:24
将以下内容复制粘贴在一个txt中,修改txt后缀为“.vbs”
On Error Resume Next
Const wdExportFormatPDF = 17
Set oWord = WScript.CreateObject("Word.Application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds=fso.GetFolder(".")
Set ffs=fds.Files
For Each ff In ffs
If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
Set oDoc=oWord.Documents.Open(ff.Path)
odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
If Err.Number Then
MsgBox Err.Description
End If
odoc.Close wdDoNotSaveChanges
End If
Next
oword.Quit
Set oDoc=Nothing
Set oWord =Nothing
MsgBox "Word文件已全部转换为PDF格式!"
最新文章
- jQuery属性操作
- SAP HANA专题分析目录
- 利用border属性制作各种图形。
- thinkphp文章列表及删除文章
- swift系统学习第三章
- java的nio之:java的nio的原理
- 提高iOS开发效率的方法和工具
- ARP局域网欺骗工具编写
- 『重构--改善既有代码的设计』读书笔记----Replace Method with Method Object
- POJ 3484 Showstopper(二分答案)
- jquery-plugin-biggerLink,highLight-层加亮_andy 阳光生活_百度空间
- js 正则之 判断密码类型
- 【设计模式】适配器模式 Adapter Pattern
- 未来-IOT-Aliyun:ICA 联盟
- C# 开启一个新进程并为新进程设置工作目录
- Equivalent Sets HDU - 3836 2011多校I tarjan强连通分量
- C_数据结构_递归A函数调用B函数
- 固态硬盘SSD,机械硬盘HDD,4K速度对比。
- c++之---初探重载操作符
- JS中document对象详解