精易论坛

标题: WORD转PDF VBS源码 [打印本页]
作者: 深圳梦    时间: 2021-4-24 23:02
标题: WORD转PDF VBS源码
复制下面的代码，保存的记事本，另存为vbs文件；然后把这个vbs文件放到你要转PDF的文件夹里(doc和docx文件都可以)。双击运行，等待 Word文件已全部轩换为PDF格式! 的对话框 代表已经全部转化完成。



这个能转换成易语言源码吗？


作者: 汉族    时间: 2021-4-25 00:02
因该是 com对象创建   
作者: 单色    时间: 2021-4-25 00:45
支持一下
作者: xtavoxing    时间: 2021-4-25 04:20
(*@ο@*) 哇～...
作者: aidijy    时间: 2021-4-25 08:52
本帖最后由 aidijy 于 2021-4-25 09:38 编辑
  
子程序名返回值类型公开备 注
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

.子程序 另存为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”, ).取错误 () ＝ “”)

作者: aidijy    时间: 2021-4-25 08:53
实际只用了2行功能
.版本 2

.子程序 另存为pdf, 逻辑型, 公开, 成功了.记得保存原文档.如是新文档,则会弹出另存为对话框
.参数 新文件名, 文本型
WORD对象.读对象型属性 (“ActiveDocument”, ).方法 (“ExportAsFixedFormat”, 新文件名, 17, 假, 0, 0, 1, 1, 0, 真, 真, 1, 真, 真, 真, )
返回 (WORD对象.读对象型属性 (“ActiveDocument”, ).取错误 () ＝ “”)
作者: aidijy    时间: 2021-4-25 09:32
.版本 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, , )


作者: aufhur    时间: 2021-4-26 17:56
不错，喜欢这个源码
作者: cc66029    时间: 2021-4-27 12:16
感谢楼主分享
作者: 得意须尽欢    时间: 2021-4-27 20:14
66666666666666666666666666666
作者: e小鸟168    时间: 2021-5-1 09:43
精易牛逼人物多啊。厉害了
作者: 没病走两步    时间: 2021-5-2 00:01
只用实力说话，让sb闭嘴
作者: lhpkk1    时间: 2021-5-5 20:55
EXCEL的怎么改？
作者: q1601522168q    时间: 2021-6-3 17:42
能pdf文件  转word吗
作者: 艺术就是爆炸    时间: 2021-6-7 15:58
作者: fb2002    时间: 2021-12-7 02:11
aidijy 发表于 2021-4-25 08:52
[e=3].版本 2
.支持库 spec

基于PPT转PDF的VBS应该如何？
On Error Resume Next
Set ppt = CreateObject("PowerPoint.application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds = fso.GetFolder("E:\1-1\") '此处可以写自已文件所在的文件夹
Set ffs = fds.Files
For Each ff In ffs
  If (LCase(Right(ff.Name,4))=".ppt" Or LCase(Right(ff.Name,4))="pptx" ) And Left(ff.Name,1)<>"~" Then
  Set pptfile = ppt.Presentations.Open(ff.Path,false,false,false)
  pptfile.Saveas Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",32,false
  If Err.Number Then
  MsgBox Err.Description
  End If
  End If
Next
pptfiles.Close
ppt.Quit
Set pptfile = Nothing
Set ppt = Nothing
作者: xjshuaishuai    时间: 2021-12-22 14:04
谢谢分享！
作者: 永恒008    时间: 2022-2-18 14:07
牛人真多！！
作者: 永恒008    时间: 2022-2-24 19:46
aidijy 发表于 2021-4-25 08:52
[e=3].版本 2
.支持库 spec

我试了，什么反应都没有
作者: aidijy    时间: 2022-2-24 23:29
永恒008 发表于 2022-2-24 19:46
我试了，什么反应都没有

你不会用就没办法了
作者: uulive    时间: 2022-3-12 18:48
看看有用吗
作者: uulive    时间: 2022-3-12 18:49
貌似不行啊
作者: ghost12    时间: 2022-4-7 18:01
大神，请收下我的膝盖
作者: ghost12    时间: 2022-5-1 07:02
很好很强悍，坚持下去哦~
作者: 冬天风雪来    时间: 2022-11-2 23:22
word2003版...提示"不支持此对象"   dos扩展名呀,为啥?
作者: gaopujun    时间: 2023-10-16 18:00
停留在转换中，一动不动呢
作者: 123456ppt    时间: 2023-10-16 18:17
貌似没反应
作者: haiyiang22    时间: 2024-2-22 17:52
不错哦，确实可用，楼上不可用的不知道啥情况，



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4