- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何将office文档转换为pdf (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101545)
-- 发布时间：2017/6/2 14:17:00
-- 如何将office文档转换为pdf
请教版主，如何利用FT把已有的word、excel和ppt文件之间转换为PDF，
以下代码可以直接将excel转换为pdf：
Dim Book
As New XLS.Book(ProjectPath &
"Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.pdf"
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()
Dim fl As String = ProjectPath & "Reports\\出库单.pdf"
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()
帮助中也提到把Table保存为PDF，如何把指定的一个word和ppt文件保存为pdf呢？
-- 发布时间：2017/6/2 14:26:00
--
WORD TO PDF
Dim app As New MSWord.Application
try
Dim fileName = "e:\\test.docx"
app.Documents.Open(fileName)
app.Documents(fileName).ExportAsFixedFormat("e:\\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
try
Dim fileName = "e:\\test.docx"
app.Documents.Open(fileName)
app.Documents(fileName).ExportAsFixedFormat("e:\\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49847
那么PPT呢？
-- 发布时间：2017/6/2 14:30:00
--
上述代码出现如下错误
WORD进程直接关闭。而我的RPC确定是开启的。
此主题相关图片如下：tim截图20170602142947.png
此主题相关图片如下：tim截图20170602143000.png
[此贴子已经被作者于2017/6/2 14:47:47编辑过]
-- 发布时间：2017/6/2 14:41:00
--
在别的电脑测试了了上述语句把word生成PDF没有问题，有没有办法把PPT也生成PDF？
[此贴子已经被作者于2017/6/2 14:48:26编辑过]
-- 发布时间：2017/6/2 15:09:00
--
色版，ppt转pdf有办法？
我看excel也可以用word转PDF的方法。
-- 发布时间：2017/6/2 15:43:00
--
引用dll
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:microsoft.office.interop.powerpoint.zip |
执行代码
Dim app As new Microsoft.Office.Interop.PowerPoint.Application
Dim ppt = app.Presentations.Open("g:\\test.pptx",0,0,0)
msgbox(Microsoft.Office.Interop.PowerPoint.PpFixedFormatType.ppFixedFormatTypePDF)
ppt.saveas("e:\\test.pdf", 32, 1)
app.quit
-- 发布时间：2017/6/2 16:32:00
--
压缩包里面好多版本的dll，试过两个，都提示需要引用，而实际已经引用了。不知何故。
此主题相关图片如下：tim截图20170602163123.png
此主题相关图片如下：tim截图20170602163136.png
-- 发布时间：2017/6/2 17:57:00
--
要选择符合的dll才行，我选择的是这个 14.0.4754.1000 版本的，测试没问题。