利用vbs将word、excel、ppt转换成pdf

代码如下：

Excel：

path = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

Set objArgs = WScript. Arguments
Set oExcel = CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open(path & "\" & "tmp.xlsx")
oWb.ExportAsFixedFormat xlTypePDF, path & "\" & "tmp.pdf", 1,1,1,1
oExcel.Visible = False
oExcel.quit
Set oWb = Nothing

Word：

path = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

Set word = CreateObject("Word.application")

Set docx = word.Documents.Open(path & "\" & "tmp.doc")

docx.SaveAs path & "\" & "tmp.pdf",17

docx.close(doNotSaveChanges)

word.Quit
set docx = nothing

Set word = nothing

PPT：

path = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

Set ppt = CreateObject("PowerPoint.application")

Set pptfile = ppt.Presentations.Open(path & "\" & "tmp.ppt",false,false,false)

pptfile.Saveas path & "\" & "tmp.pdf",32,false
ppt.Quit
Set pptfile= nothing

path = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path表示获得当前文件所在的路劲

tmp.ppt为原始文件

tmp.pdf为转换过的pdf文件

主要是参考这位前辈的附上地址https://blog.csdn.net/dqmtqqq/article/details/54848432

利用vbs将word、excel、ppt转换成pdf相关推荐

Python 实现office单个文件或整个文件夹（word，ppt，excel）转换成PDF文件，并获取PDF文件页数
Python 实现office单个文件或整个文件夹(word,ppt,excel)转换成PDF文件,并获取PDF文件页数文件夹中获取需要转换的文件数,将其全部转换或可单独转换单个文件,并获取转成PD ...
php 实现ppt转动态swf,如何利用iSpring Free软件将ppt转换成swf视频文件？（140808）|老小孩讲述...
如何利用iSpring Free软件将ppt转换成swf视频文件? (140808) (一)对iSpring FreePortable软件压缩包解压缩 (二)安装iSpring Free软件 (1)→ ...
word转图片 java_Java 利用LibreOffice将Office文档转换成 PDF，进而转图片，实现在线预览功能...
项目中需要将 Office 文档上传并实现在线预览,用到了 LibreOffice 将 Office 文档转换为 PDF 文档,然后再用 pdfbox 将 PDF 转为图片. 本文介绍借助 Libre ...
比较好的ppt转换成pdf转换器
比较好的ppt转换成pdf转换器教学中我们通常需要用到PPT幻灯片,利用幻灯片动态的动漫设置让教学显得更加生动活泼,然而,如将PPT作为复习资料供给学生使用,则是不可取的,将PPT转换成可供观赏的P ...
ppt转换成pdf转换器下载
ppt转换成pdf转换器下载日常的工作和学习中,经常要碰到各种文档之间的相互转换问题,其中pdf文档转换为ppt文档尤为常见,经常遇到一门课已经有了ppt文档,但又需要pdf文档用于阅览这种情况.如 ...
将ppt转换成pdf的三种方法分享
在我们工作中,总免不了将一些ppt幻灯片里的内容复制到pdf文档中,一些同仁遇到这种现象常常不知道如何下手,有的甚至直接将ppt文本内容复制到word文档中,然后保存成pdf格式,这样打开肯定会导致排 ...
怎样将ppt转换成pdf软件
怎样将ppt转换成pdf软件工作或学习中,常常要把PPT转换成PDF文档,或者把PDF转换成PPT或是为了方便浏览,或是为了能够进行二次编辑,当遇到这种情况时,不妨试试以下这款PPT转换成PDF转换 ...
PPT转换成PDF转换软件教程
PPT转换成PDF转换软件教程优秀的PPT转换成PDF转换器通常具备更为优秀的转换效果和质量,而普通的PPT转换PDF转换工具通常由于软件自身的转换技术问题,无法完整对PDF文件内容进行转换,大量的 ...
ppt转换成pdf工具
ppt转换成pdf工具前言:朋友在微博给我留言,让我帮忙把ppt文件转换成pdf,当时也是信口开河,认为直接下载几个转换软件就能马上搞定,但是,一测试却发现,转换之后的文本不是出现了乱码就是转换不出 ...
ppt转换成pdf转换器绿色版
为什么80%的码农都做不了架构师?>>> ppt转换成pdf转换器绿色版批量办公文档转换软件,可以一次性批量地将Office办公文档换为pdf,支持命令行参数,使得转换工作可以自动 ...

利用vbs将word、excel、ppt转换成pdf

利用vbs将word、excel、ppt转换成pdf相关推荐

最新文章

热门文章