Foxtable(狐表)用户栏目专家坐堂 → 请问有什么第三方dll可以帮实现word转pdf功能?


  共有3512人关注过本帖树形打印复制链接

主题:请问有什么第三方dll可以帮实现word转pdf功能?

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/31 10:24:00 [显示全部帖子]

参考:

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/18 9:34:00 [显示全部帖子]

https://docs.microsoft.com/zh-cn/office/vba/api/word.document.exportasfixedformat?redirectedfrom=MSDN

app.Documents(fileName).ExportAsFixedFormat("e:\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF,false,1,MSWord.WdExportRange.wdExportFromTo,起始页码,结束页码)
[此贴子已经被作者于2019/12/18 11:57:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/18 11:58:00 [显示全部帖子]

app.Documents(fileName).ExportAsFixedFormat("e:\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF,false,1MSWord.WdExportRange.wdExportFromTo,起始页码,结束页码)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/18 13:44:00 [显示全部帖子]

到任务管理器里退出word进程。或者强制kill进程。类似:http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116396&replyID=787598&skin=1

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/18 13:56:00 [显示全部帖子]

kill进程的用法就可以判断。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/18 16:28:00 [显示全部帖子]

我测试没有问题。有没有安装wps,卸载掉。如果office是精简版的,卸载安装完整版的

 回到顶部