WORD转PDF VBS源码

aufhur

不错，喜欢这个源码

aidijy

.版本 2
.支持库 spec

.子程序 WORD2PDF
.局部变量 Word, 对象
.局部变量 ofile, 文本型
.局部变量 wdExportFormatPDF, 整数型
.局部变量 TMP_LIST, 文本型, , "0"
.局部变量 i, 整数型

wdExportFormatPDF ＝ 17
Word.创建 (“Word.Application”, )
文件_枚举 (取运行目录 (), “*.*”, TMP_LIST, 真, )
标题 ＝ “Word文件正在转换中,请勿关闭当前窗口...”
.计次循环首 (取数组成员数 (TMP_LIST), i)
    .如果真 (Right (TMP_LIST [i], 4) ＝ “.doc” 或 Right (TMP_LIST [i], 4) ＝ “docx”)
        .如果真 (Left (TMP_LIST [i], 1) ≠ “~”)
            ofile ＝ 取文本 (“%s\%s.pdf”, 取运行目录 (), 文件_取文件名 (TMP_LIST [i], ))
            Word.读对象型属性 (“Documents”, ).对象型方法 (“Open”, TMP_LIST [i])
            Word.读对象型属性 (“ActiveDocument”, ).方法 (“ExportAsFixedFormat”, ofile, wdExportFormatPDF, 假, 0, 0, 1, 1, 0, 真, 真, 1, 真, 真, 真, )
        .如果真结束

    .如果真结束

.计次循环尾 ()
Word.读对象型属性 (“Documents”, ).对象型方法 (“Item”, ).对象型方法 (“Close”, )
Word.方法 (“Quit”, )
Word.清除 ()
信息框 (“Word文件已全部转换为PDF格式!”, 0, , )

aidijy

实际只用了2行功能
.版本 2

.子程序 另存为pdf, 逻辑型, 公开, 成功了.记得保存原文档.如是新文档,则会弹出另存为对话框
.参数 新文件名, 文本型
WORD对象.读对象型属性 (“ActiveDocument”, ).方法 (“ExportAsFixedFormat”, 新文件名, 17, 假, 0, 0, 1, 1, 0, 真, 真, 1, 真, 真, 真, )
返回 (WORD对象.读对象型属性 (“ActiveDocument”, ).取错误 () ＝ “”)

aidijy

  

子程序名	返回值类型	公开	备 注
WORD2PDF

变量名	类 型	静态	数组	备 注
Word	对象
ofile	文本型
wdExportFormatPDF	整数型
TMP_LIST	文本型		0
i	整数型

wdExportFormatPDF ＝ 17
Word.创建 (“Word.Application”, )
文件_枚举 (取运行目录 (), “*.*”, TMP_LIST, 真, )
标题 ＝ “Word文件正在转换中,请勿关闭当前窗口...”
计次循环首 (取数组成员数 (TMP_LIST), i)
如果真 (Right (TMP_LIST [i], 4) ＝ “.doc” 或 Right (TMP_LIST [i], 4) ＝ “docx”)
如果真 (Left (TMP_LIST [i], 1) ≠ “~”)
ofile ＝ 取文本 (“%s\%s.pdf”, 取运行目录 (), 文件_取文件名 (TMP_LIST [i], ))
Word.读对象型属性 (“Documents”, ).对象型方法 (“Open”, TMP_LIST [i])
Word.读对象型属性 (“ActiveDocument”, ).方法 (“ExportAsFixedFormat”, ofile, wdExportFormatPDF, 假, 0, 0, 1, 1, 0, 真, 真, 1, 真, 真, 真, )


计次循环尾 ()
Word.读对象型属性 (“Documents”, ).对象型方法 (“Item”, ).对象型方法 (“Close”, )
Word.方法 (“Quit”, )
Word.清除 ()
信息框 (“Word文件已全部转换为PDF格式!”, 0, , )

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 WORD2PDF<br /> .局部变量 Word, 对象<br /> .局部变量 ofile, 文本型<br /> .局部变量 wdExportFormatPDF, 整数型<br /> .局部变量 TMP_LIST, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> wdExportFormatPDF ＝ 17<br /> Word.创建 (“Word.Application”, )<br /> 文件_枚举 (取运行目录 (), “*.*”, TMP_LIST, 真, )<br /> 标题 ＝ “Word文件正在转换中,请勿关闭当前窗口...”<br /> .计次循环首 (取数组成员数 (TMP_LIST), i)<br />     .如果真 (Right (TMP_LIST <i>, 4) ＝ “.doc” 或 Right (TMP_LIST <i>, 4) ＝ “docx”)<br />         .如果真 (Left (TMP_LIST <i>, 1) ≠ “~”)<br />             ofile ＝ 取文本 (“%s\%s.pdf”, 取运行目录 (), 文件_取文件名 (TMP_LIST <i>, ))<br />             Word.读对象型属性 (“Documents”, ).对象型方法 (“Open”, TMP_LIST <i>)<br />             Word.读对象型属性 (“ActiveDocument”, ).方法 (“ExportAsFixedFormat”, ofile, wdExportFormatPDF, 假, 0, 0, 1, 1, 0, 真, 真, 1, 真, 真, 真, )<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> Word.读对象型属性 (“Documents”, ).对象型方法 (“Item”, ).对象型方法 (“Close”, )<br /> Word.方法 (“Quit”, )<br /> Word.清除 ()<br /> 信息框 (“Word文件已全部转换为PDF格式!”, 0, , )

.版本 2

.子程序 另存为pdf, 逻辑型, 公开, 成功了.记得保存原文档.如是新文档,则会弹出另存为对话框
.参数 新文件名, 文本型

' a.赋值 (真, )
' b.赋值 (假, )
' 'WORD对象.读对象型属性 (“ActiveDocument”, ).查看 ()
WORD对象.读对象型属性 (“ActiveDocument”, ).方法 (“ExportAsFixedFormat”, 新文件名, 17, 假, 0, 0, 1, 1, 0, 真, 真, 1, 真, 真, 真, )
' ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _  'xlTypePDF 0'
' "C:\Documents and Settings\Administrator\桌面\12.pdf", Quality:= _
' xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=True, _''xlQualityMinimum 1''
' OpenAfterPublish:=False


' 方法调用格式： 〈无返回值〉 对象．方法 （"ExportAsFixedFormat"，OutputFileName，ExportFormat，OpenAfterExport，OptimizeFor，Range，From，To，Item，IncludeDocProps，KeepIRM，CreateBookmarks，DocStructureTags，BitmapMissingFonts，UseISO19005_1，FixedFormatExtClassPtr）
' 参数<1>的名称为“OutputFileName”，类型为“文本型”。
' 参数<2>的名称为“ExportFormat”，类型为“整数型”，参数值为以下值之一： 17、wdExportFormatPDF； 18、wdExportFormatXPS。
' 参数<3>的名称为“OpenAfterExport”，类型为“逻辑型”，参数默认值为“假”。
' 参数<4>的名称为“OptimizeFor”，类型为“整数型”，参数默认值为“0”，参数值为以下值之一： 0、wdExportOptimizeForPrint； 1、wdExportOptimizeForOnScreen。
' 参数<5>的名称为“Range”，类型为“整数型”，参数默认值为“0”，参数值为以下值之一： 0、wdExportAllDocument； 1、wdExportSelection； 2、wdExportCurrentPage； 3、wdExportFromTo。
' 参数<6>的名称为“From”，类型为“整数型”，参数默认值为“1”。
' 参数<7>的名称为“To”，类型为“整数型”，参数默认值为“1”。
' 参数<8>的名称为“Item”，类型为“整数型”，参数默认值为“0”，参数值为以下值之一： 0、wdExportDocumentContent； 7、wdExportDocumentWithMarkup。
' 参数<9>的名称为“IncludeDocProps”，类型为“逻辑型”，参数默认值为“假”。
' 参数<10>的名称为“KeepIRM”，类型为“逻辑型”，参数默认值为“真”。
' 参数<11>的名称为“CreateBookmarks”，类型为“整数型”，参数默认值为“0”，参数值为以下值之一： 0、wdExportCreateNoBookmarks； 1、wdExportCreateHeadingBookmarks； 2、wdExportCreateWordBookmarks。
' 参数<12>的名称为“DocStructureTags”，类型为“逻辑型”，参数默认值为“真”。
' 参数<13>的名称为“BitmapMissingFonts”，类型为“逻辑型”，参数默认值为“真”。
' 参数<14>的名称为“UseISO19005_1”，类型为“逻辑型”，参数默认值为“假”。
' 参数<15>的名称为“FixedFormatExtClassPtr”，类型为“变体型”，可以被省略。
返回 (WORD对象.读对象型属性 (“ActiveDocument”, ).取错误 () ＝ “”)

xtavoxing

(*@ο@*) 哇～...

单色

支持一下

汉族

因该是 com对象创建