请教修改MS原生word转PDF的VBS的问题

tzxinqing

目前这个脚本会将文件夹下所有的DOC和DOCX文件均转换成PDF，请教如何将这个调用MS OFFICE的VBS改为针对鼠标右键选中的1个或多个文件？参考http://bbs.wuyou.net/forum.php?mod=viewthread&tid=436438&page=1#pid4970895在右键执行

代码出处https://laojuhui.com/develop/10.html

1. On Error Resume Next
   
2.     Const wdExportFormatPDF = 17
   
3.     Set oWord = WScript.CreateObject("Word.Application")
   
4.     Set fso = WScript.CreateObject("Scripting.Filesystemobject")
   
5.     Set fds=fso.GetFolder(".")
   
6.     Set ffs=fds.Files
   
7.     For Each ff In ffs
   
8.     If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
   
9.         Set oDoc=oWord.Documents.Open(ff.Path)
   
10.         odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
    
11.         If Err.Number Then
    
12.         MsgBox Err.Description
    
13.         End If
    
14.     End If
    
15.     Next
    
16.     odoc.Close
    
17.     oword.Quit
    
18.     Set oDoc=Nothing
    
19.     Set oWord =Nothing
    
20.     MsgBox "Word全部转换为PDF啦!"

复制代码

yyz2191958

谢谢分享

yyz2191958

我提供个思路：
在aa文件夹里面放置这个vbs，再新建一个bb.bat
bb.bat功能：
1.复制被选定文件到aa文件夹
2.运行这个vbs
3.移动转换成PDF到被选定文件所在文件夹
4.bb.bat添加到右键菜单

ohte

FSO已经淘汰了，新的WORD不支持

写了一个WORD程序，请试用
链接: pan.baidu.com/s/1WdcCkri03hBcNbRWxxHdIw?pwd=1212

tzxinqing

ohte 发表于 2023-7-7 12:15
FSO已经淘汰了，新的WORD不支持

写了一个WORD程序，请试用

谢谢答复，看了下是VBA脚本，调用ExportAsFixedFormat，能实现转换，但不是我想要的。

amwdi

大概是这样

1. On Error Resume Next
   
2.     Const wdExportFormatPDF = 17
   
3.     Set oWord = WScript.CreateObject("Word.Application")
   
4.     Set fso = WScript.CreateObject("Scripting.Filesystemobject")
   
5.     'Set fds=fso.GetFolder(".")
   
6.     'Set ffs=fds.Files
   
7.     'For Each ff In ffs
   
8.     Set ff=fso.GetFile(WScript.Arguments.Item(0))
   
9.     If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
   
10.         Set oDoc=oWord.Documents.Open(ff.Path)
    
11.         odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
    
12.         If Err.Number Then
    
13.         MsgBox Err.Description
    
14.         End If
    
15.     End If
    
16.     'Next
    
17.     odoc.Close
    
18.     oword.Quit
    
19.     Set oDoc=Nothing
    
20.     Set oWord =Nothing
    
21.     'MsgBox "Word全部转换为PDF啦!"

复制代码

tzxinqing

amwdi 发表于 2023-7-9 12:27
大概是这样

谢谢大佬，试了不行，提示“缺少对象”

amwdi

tzxinqing 发表于 2023-7-10 08:39
谢谢大佬，试了不行，提示“缺少对象”

不知道了，试过是可以的

tzxinqing

ohte 发表于 2023-7-7 12:15
FSO已经淘汰了，新的WORD不支持

写了一个WORD程序，请试用

请教大佬，“新的WORD不支持”是什么版本的MS OFFICE不支持？

ohte

tzxinqing 发表于 2023-7-27 08:59
请教大佬，“新的WORD不支持”是什么版本的MS OFFICE不支持？

记忆有点差错，FSO是有点老，用还是能用的。

一：主要是Scripting.FileSystemObject (FSO 文本文件读写)被关闭了，开启FSO功能即可， 在“运行”中执行regsvr32 scrrun.dll
二：如果javascript 脚本中报这个错误是因为IE的 安全设置不允许运行未标记为安全的activeX控件 更改IE的安全设置 ，把相应的选项打开即可。