- 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)
-- 发布时间：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
为什么为弹出下面框
此主题相关图片如下：dddd.png
[此贴子已经被作者于2018/4/7 23:25:10编辑过]
-- 发布时间：2018/4/8 8:47:00
--
1、每次都会报错？
2、你执行下面的代码，是否会报错？
Dim app As New MSWord.Application
try
Dim fileName = "d:\\test.doc"
Dim doc = app.Documents.Open(fileName)
doc.ExportAsFixedFormat("d:\\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
doc.saved = True
app.Quit
catch ex As exception
msgbox(ex.message)
app.Quit
End try
-- 发布时间：2018/10/20 19:38:00
--
这回可以了，谢谢老师！