Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") Dim app As New MSWord.Application try Dim fileName = "e:\test.doc" 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 Dim tm As String = "e:\test.pdf" '指定目标PDF文件 wbr.AddRess = tm
加好友 
发短信
Post By：2014/4/24 22:23:00 [显示全部帖子]
