您好,今天源源来为大家解答以上的问题。电脑报pdf相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、Set pptfile = ppt.PresentatFor Each ff In ffsions.Open(ff.Path,false,false,false)你用国产的WPS.在文件菜单下就有输出pdf你可以选择一种虚拟打印机，专门生成pdf，这个具体的忘了，你上电脑报网上找一找，应该是06年的，07年合订本有装个转PDF的虚拟打印机 就可以直接转出PDF文档！WPS Off 2010个人版支持直接输出为PDF格式，点击文件选项就可以看到。

2、用word2010另If (LCase(Right(ff.Name,4))=".ppt" Or LCase(Right(ff.Name,4))="pptx" ) And Left(ff.Name,1)<>"~" Then存为就可以了，网上有版的adobe acrobat软件是个比较好的选择。

本文到这结束，希望上面文章对大家有所帮助。