word转PDF

易语飞扬

.版本 2

.子程序 _临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
WORD转PDF (“D:\1.docx”, “D:\2.pdf”)

.子程序 WORD转PDF, 逻辑型, , windows7 64位+office2010下测试通过。
.参数 WORD文件名, 文本型
.参数 PDF文件名, 文本型
.局部变量 WORD程序, 对象
.局部变量 WORD文档, 对象

.如果 (WORD程序.创建 (“word.application”, ))
    ' WORD程序.写属性 (“visible”, 真)
    WORD文档 ＝ WORD程序.读对象型属性 (“Documents”, ).对象型方法 (“Open”, WORD文件名)
    WORD文档.方法 (“ExportAsFixedFormat”, PDF文件名, 17, 假, 0, 0, 1, 1, 0, 真, 真, 0, 真, 真, 假)

    ' 方法调用格式： 〈无返回值〉 对象．方法 （"ExportAsFixedFormat"，OutputFileName，ExportFormat，OpenAfterExport，OptimizeFor，Range，From，To，Item，IncludeDocProps，KeepIRM，CreateBookmarks，DocStructureTags，BitmapMissingFonts，UseISO19005_1，FixedFormatExtClassPtr）
    ' 参数<1>的名称为“输出文件名”，类型为“文本型”。
    ' 参数<2>的名称为“输出格式”，类型为“整数型”，参数值为以下值之一： 17、wdExportFormatPDF； 18、wdExportFormatXPS。
    ' 参数<3>的名称为“打开转换后的文件”，类型为“逻辑型”，参数默认值为“假”。
    ' 参数<4>的名称为“优化”，类型为“整数型”，参数默认值为“0”，参数值为以下值之一： 0、wdExportOptimizeForPrint（适合打印，清晰度高）； 1、wdExportOptimizeForOnScreen（适合屏幕浏览，文件更小）。
    ' 参数<5>的名称为“导出范围”，类型为“整数型”，参数默认值为“0”，参数值为以下值之一： 0、wdExportAllDocument（全部文档）； 1、wdExportSelection； 2、wdExportCurrentPage（当前页）； 3、wdExportFromTo（指定页码范围，需配合 From 和 To 参数）。
    ' 参数<6>的名称为“开始页码”，类型为“整数型”，参数默认值为“1”。仅当 导出范围=wdExportFromTo 时生效。
    ' 参数<7>的名称为“终止页码”，类型为“整数型”，参数默认值为“1”。仅当 导出范围=wdExportFromTo 时生效。
    ' 参数<8>的名称为“Item”，类型为“整数型”，参数默认值为“0”，参数值为以下值之一： 0、wdExportDocumentContent（导出文档）； 7、wdExportDocumentWithMarkup（导出带标志文档）。
    ' 参数<9>的名称为“是否包含文档属性”，类型为“逻辑型”，参数默认值为“假”。是否包含文档属性（如作者、标题）。
    ' 参数<10>的名称为“KeepIRM”，类型为“逻辑型”，参数默认值为“真”。
    ' 参数<11>的名称为“保留文档书签”，类型为“整数型”，参数默认值为“0”，参数值为以下值之一： 0、wdExportCreateNoBookmarks（不保留）； 1、wdExportCreateHeadingBookmarks（仅保留标题书签）； 2、wdExportCreateWordBookmarks（保留所有 Word 书签）。
    ' 参数<12>的名称为“DocStructureTags”，类型为“逻辑型”，参数默认值为“真”。
    ' 参数<13>的名称为“BitmapMissingFonts”，类型为“逻辑型”，参数默认值为“真”。
    ' 参数<14>的名称为“UseISO19005_1”，类型为“逻辑型”，参数默认值为“假”。
    ' 参数<15>的名称为“FixedFormatExtClassPtr”，类型为“变体型”，可以被省略。

    WORD程序.方法 (“Quit”, )
    WORD程序.清除 ()
    返回 (文件是否存在 (PDF文件名))
.否则
    返回 (假)
.如果结束

loop123

感谢分享，支持开源！！！

zjw3005

谢谢大神，太感谢了，对我有用！

lijunfa12345

谢谢分享，，，，，，，，，，，，

胖子葛格

感谢大神分享~！

胖子葛格

感谢大神分享~！

please

感谢分享，支持开源！！！

杨明煜

真值得学习，感谢！......

KEY心碎

论坛有你更精彩

moxin2588

有没有 PDF转WORD 的方法？