以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何指定word文档转pdf,出错了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117152) |
-- 作者:ZJZK2018 -- 发布时间:2018/4/7 23:24:00 -- 如何指定word文档转pdf,出错了 按钮代码: Dim dr As Row = Tables("会议纪要").Current Dim fl As String = ProjectPath & "Attachments\\用户工程\\" & dr("工程名称") & "\\" & dr("会议名称") & "\\" & "P" & dr("会议编号") & dr("会议名称") & ".doc" \'指定目标文件 Dim pd As String = ProjectPath & "Attachments\\用户工程\\" & dr("工程名称") & "\\" & dr("会议名称") & "\\" & "P" & dr("会议编号") & dr("会议名称") & ".pdf" \'指定目标文件 Dim app As New MSWord.Application try Dim fileName = fl app.Documents.Open(fileName) app.Documents(fileName).ExportAsFixedFormat(pd, MSWord.WdExportFormat.wdExportFormatPDF) app.Quit Catch ex As Exception msgbox(ex.message) finally app.Quit End try 为什么为弹出下面框 [此贴子已经被作者于2018/4/7 23:25:10编辑过]
|
-- 作者:有点甜 -- 发布时间:2018/4/8 8:47:00 -- 1、每次都会报错?
2、你执行下面的代码,是否会报错?
Dim app As New MSWord.Application |
-- 作者:Engineer1 -- 发布时间:2018/10/20 19:38:00 -- 这回可以了,谢谢老师! |