如何将office文档转换为pdf - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将office文档转换为pdf

共有2359人关注过本帖树形打印复制链接主题：如何将office文档转换为pdf

天若千颖

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

如何将office文档转换为pdf 发帖心情

Post By：2017/6/2 14:17:00 [只看该作者]

请教版主，如何利用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()

帮助中也提到把Table保存为PDF，如何把指定的一个word和ppt文件保存为pdf呢？

天若千颖

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：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

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49847

那么PPT呢？

天若千颖

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2017/6/2 14:30:00 [只看该作者]

上述代码出现如下错误

WORD进程直接关闭。而我的RPC确定是开启的。

此主题相关图片如下：tim截图20170602142947.png

此主题相关图片如下：tim截图20170602143000.png

[此贴子已经被作者于2017/6/2 14:47:47编辑过]

天若千颖

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2017/6/2 14:41:00 [只看该作者]

在别的电脑测试了了上述语句把word生成PDF没有问题，有没有办法把PPT也生成PDF？

[此贴子已经被作者于2017/6/2 14:48:26编辑过]

天若千颖

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2017/6/2 15:09:00 [只看该作者]

色版，ppt转pdf有办法？

我看excel也可以用word转PDF的方法。

有点色

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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