- 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=49847)
-- 发布时间：2014/4/24 21:47:00
-- [求助]如何用代码将一个已经存在的word保存为pdf
如题
甜甜帮忙啊
[此贴子已经被作者于2014-4-24 21:54:19编辑过]
-- 发布时间：2014/4/24 22:09:00
--
mark word pdf
如下代码
Dim app As New MSWord.Application
try
Dim fileName = "e:\\test.docx"
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
-- 发布时间：2014/4/24 22:23:00
--
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
-- 发布时间：2014/4/24 22:43:00
--
感谢有点甜，感谢lhpc120