老师你好：
我在执行下面代码时，会出下面对话框，如何修改代码不出现这个对话框，而直接保存？
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编辑过]
加好友 
发短信
Post By：2018/4/15 22:31:00 [只看该作者]
