以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  docx格式怎么用代码转为pdf？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89502)
--  作者：luodang2050
--  发布时间：2016/8/23 13:58:00
--  docx格式怎么用代码转为pdf？
如题，docx格式文件，怎么直接转pdf？（非word报表）
--  作者：大红袍
--  发布时间：2016/8/23 14:31:00
--  
Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    app.Documents.Open(fileName)
    app.Documents(fileName).ExportAsFixedFormat("d:\\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try
--  作者：luodang2050
--  发布时间：2016/8/23 15:04:00
--  
“finally" 请问这个是什么意思？哪里出处？
--  作者：大红袍
--  发布时间：2016/8/23 15:28:00
--  

  不要也可以

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    app.Documents.Open(fileName)
    app.Documents(fileName).ExportAsFixedFormat("d:\\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)

    app.Quit
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try