- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- word转换pdf (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117599)
-- 发布时间：2018/4/15 22:31:00
-- word转换pdf
老师你好：
我在执行下面代码时，会出下面对话框，如何修改代码不出现这个对话框，而直接保存？
Case "审核"
Dim pth As String = ProjectPath & "Attachments\\用户工程\\" & dr("项目编号") & dr("工程名称") & "\\" & dr("会议名称") & "\\"
If e.NewValue = True Then
Dim app As New MSWord.Application
Try
Dim fileName = pth & dr("纪要文件名称") & ".doc"
Dim doc = app.Documents.Open(fileName)
app.Documents(fileName).ExportAsFixedFormat(pth & dr("纪要文件名称") & ".pdf", MSWord.WdExportFormat.wdExportFormatPDF)
app.Quit
Catch ex As Exception
msgbox(ex.message)
app.Quit
End Try
End If
此主题相关图片如下：qq截图20180415224000.png
[此贴子已经被作者于2018/4/15 22:31:58编辑过]
-- 发布时间：2018/4/15 22:33:00
--
Try
Dim fileName = pth & dr("纪要文件名称") & ".doc"
Dim doc = app.Documents.Open(fileName)
doc.Saved = True
app.Documents(fileName).ExportAsFixedFormat(pth & dr("纪要文件名称") & ".pdf", MSWord.WdExportFormat.wdExportFormatPDF)
app.Quit
Catch ex As Exception
msgbox(ex.message)
app.Quit
End
-- 发布时间：2018/4/15 23:14:00
--
有点甜老师还是一样弹出这个“对话框”，我的需求是不要弹出这个“对话框”，如何处理？
-- 发布时间：2018/4/16 0:30:00
--
找到原因了：
Try Dim fileName = pth & dr("纪要文件名称") & ".doc" Dim doc = app.Documents.Open(fileName) \'doc.Saved = True \'这条移到下面就可以了 app.Documents(fileName).ExportAsFixedFormat(pth & dr("纪要文件名称") & ".pdf", MSWord.WdExportFormat.wdExportFormatPDF) doc.Saved = True app.Quit Catch ex As Exception msgbox(ex.message) app.Quit End |