以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]把现有的docx文件savetopdf要怎么写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107317)
--  作者：jiskin
--  发布时间：2017/9/25 17:07:00
--  [求助]把现有的docx文件savetopdf要怎么写？
如题？
--  作者：有点甜
--  发布时间：2017/9/25 17:17:00
--  

Dim app As New MSWord.Application
try
    Dim fileName = "g:\\test.docx"
    Dim doc = app.Documents.Open(fileName)
    app.Documents(fileName).ExportAsFixedFormat("g:\\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
    app.Quit
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try

[此贴子已经被作者于2017/9/25 17:17:15编辑过]