WORD转PDF VBS源码

深圳梦

复制下面的代码，保存的记事本，另存为vbs文件；然后把这个vbs文件放到你要转PDF的文件夹里(doc和docx文件都可以)。双击运行，等待 Word文件已全部轩换为PDF格式! 的对话框 代表已经全部转化完成。

• 
  
  
•    On Error Resume Next
  
  
• 
  
  Const wdExportFormatPDF = 17
  
  
• 
  
  Set oWord = WScript.CreateObject("Word.Application")
  
  
• 
  
  Set fso = WScript.CreateObject("Scripting.Filesystemobject")
  
  
• 
  
  Set fds=fso.GetFolder(".")
  
  
• 
  
  Set ffs=fds.Files
  
  
• 
  
  wscript.echo "Word文件正在转换中,请勿关闭当前窗口..."
  
  
• 
  
  For Each ff In ffs
  
  
• 
  
      If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
  
  
• 
  
          Set oDoc=oWord.Documents.Open(ff.Path)
  
  
• 
  
          odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
  
  
• 
  
          If Err.Number Then
  
  
• 
  
          MsgBox Err.Description
  
  
• 
  
          End If
  
  
• 
  
      End If
  
  
• 
  
  Next
  
  
• 
  
  odoc.Close
  
  
• 
  
  oword.Quit
  
  
• 
  
  Set oDoc=Nothing
  
  
• 
  
  Set oWord =Nothing
  
  
• 
  
  wscript.echo  "Word文件已全部转换为PDF格式!"
  
  
• 
  
  MsgBox "Word文件已全部转换为PDF格式!"
  
  
  

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

haiyiang22

不错哦，确实可用，楼上不可用的不知道啥情况，

123456ppt

貌似没反应

gaopujun

停留在转换中，一动不动呢

冬天风雪来

word2003版...提示"不支持此对象"   dos扩展名呀,为啥?

ghost12

很好很强悍，坚持下去哦~

ghost12

大神，请收下我的膝盖

uulive

貌似不行啊

uulive

看看有用吗

aidijy

永恒008 发表于 2022-2-24 19:46
我试了，什么反应都没有

你不会用就没办法了

永恒008

aidijy 发表于 2021-4-25 08:52
[e=3].版本 2
.支持库 spec

我试了，什么反应都没有