批量word转pdf——VBS脚本，在office宏中运行即可

Sub 批量word转pdf()

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker) '返回一个 FileDialog 对象，该对象代表文件对话框的单个实例。
Dim vrtSelectedItem As Variant
Dim wdDoc As Document
Dim showFolder As Boolean
showFolder = False
With fDialog
.Filters.Add "Word文件", "*.doc;*.docx;*.docm", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
'如果选择了本文档则跳过
If InStrRev(vrtSelectedItem, ThisDocument.Name) = 0 Then
On Error Resume Next
Set wdDoc = Application.Documents.Open(vrtSelectedItem, ReadOnly:=True)
wdDoc.SaveAs Left(vrtSelectedItem, Len(vrtSelectedItem) - 5), wdFormatPDF
wdDoc.Close False
End If
Next vrtSelectedItem
If showFolder Then Call Shell("explorer.exe " & Left(fDialog.SelectedItems(1), _
InStrRev(fDialog.SelectedItems(1), "")), vbMaximizedFocus)
End If
End With
Set fDialog = Nothing
Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

批量word转pdf——VBS脚本，在office宏中运行即可相关推荐

批量删除PPT第一页最后页——VBS脚本，在office宏中运行即可
批量删除PPT第一页最后页--VBS脚本,在office宏中运行即可 Sub 批量删除第一页最后页() Dim ChangedCount As Integer Dim FileName As Stri ...
VBS脚本统计红楼梦中贾宝玉出现的次数
VBS脚本统计红楼梦中贾宝玉出现的次数文件: 链接:https://pan.baidu.com/s/1T-XIbIHzMZiIX8IiSMcZdg 提取码:sti6 脚本代码: Dim fso, t ...
c 调用openoffice word转pdf_批量 Word 转 PDF 方法
- START -手上有近百个 Word 文档需要转为 PDF, 怎么办?难道要一个一个的导出吗?确实,Office2010 以后版本的 Word 可以直接导出 PDF,是时候让 Python 来替我 ...
如何在Outlook 2019/Office 365中运行VBA脚本邮件规则
如果你公司的邮件系统是Microsoft Exchange Server + Outlook,能在Outlook中执行VBA邮件规则,自动化处理邮件,可以节省大把的时间.自Outlook 2016开始 ...
python完成文件夹批量word转pdf文件及pdf文件合并+word文件合并
前言:有同学问我,如何把文件夹中的文件一次性完成打印,由于文件太多,单个打印着实麻烦.这些文件主要有三种类型,分别为PDF,word(.doc和.docx),我决定把他们全部变为PDF文件,然后再合并 ...
用VBS脚本处理替换文本中的字符
Set fso=Wscript.CreateObject("Scripting.FileSystemObject") set f=fso.opentextfile("C: ...
windows系统vbs脚本提取文件夹中的所有文件名
新建记事本改后缀 *.bat 复制下内容 @ECHO OFF tree /F > 文件树.txt 在要提取的文件夹目录下打开效果如下图
xvfb运行java脚本_Python-如何在Xvfb中运行Selenium？
我在EC2实例上.因此没有GUI. $pip install selenium $sudo apt-get install firefox xvfb 然后我这样做: $Xvfb :1 -screen ...
Office系列---将Office文件(Word、PPT、Excel)转换为PDF文件，提取Office文件(Word、PPT)中的所有图片
将Office文件转换为PDF文件,提取Office文件中的所有图片 1.Office系列---将Office文件(Word.PPT.Excel)转换为PDF文件 1.1 基于Office实现的解决方 ...
如何将Word文件批量转换成PDF
上次分享了"如何在线免费将MP4转换成MP3格式音乐",这次分享个办公相关吧.Doc和Docx格式的Word文件几乎天天和我们的工作打交道,但是为了避免随意被修改文档的内容,我们经 ...

批量word转pdf——VBS脚本，在office宏中运行即可

批量word转pdf——VBS脚本，在office宏中运行即可相关推荐

最新文章

热门文章