VBScript_DOC2PDF icon indicating copy to clipboard operation
VBScript_DOC2PDF copied to clipboard

Published 20 hours ago • verified publisher icon cxgreat2014

有没有办法支持.wps格式转pdf，谢谢

Open nietulong opened this issue 5 years ago • 6 comments

有没有办法支持.wps格式转pdf，谢谢

nietulong avatar Apr 25 '19 04:04 nietulong

这个可以有，我试试

cxgreat2014 avatar May 06 '19 10:05 cxgreat2014

这个可以有，我试试

解决啦没？我等啦很久啦，哈哈。

nietulong avatar Oct 08 '19 06:10 nietulong

这个可以有，我试试

刚刚找到一个思路，可以先ren *.wps *.doc"，然后再doc to PDF。 我弄啦以下代码： Set ws=wscript.createobject("wscript.shell") ws.run"cmd /c ren *.wps *.doc" 不知道应该放在你代码的什么地方，我放在最前面。 第一次执行可以ren wps to doc，后面就不动啦，再执行一次就可以doc to pdf。麻烦指点迷津。

nietulong avatar Oct 08 '19 07:10 nietulong

因为工作变动+生病等原因，目前已经没法再维护该项目了，

cxgreat2014 avatar Oct 09 '19 01:10 cxgreat2014

因为工作变动+生病等原因，目前已经没法再维护该项目了，

谢谢。我弄一个bat+vbs。目前比较完美方案。bat是用来ren wps to doc，vbs是用来doc to pdf。

nietulong avatar Oct 09 '19 02:10 nietulong

这个可以有，我试试

刚刚找到一个思路，可以先ren *.wps *.doc"，然后再doc to PDF。 我弄啦以下代码： Set ws=wscript.createobject("wscript.shell") ws.run"cmd /c ren *.wps *.doc" 不知道应该放在你代码的什么地方，我放在最前面。 第一次执行可以ren wps to doc，后面就不动啦，再执行一次就可以doc to pdf。麻烦指点迷津。

我怎么觉得与其这样，你不如直接改一下下面的if，增加一个wps，不知道是否可以。

For Each File In fld.Files '遍历该文件夹对象下的所有文件对象 If UCase(fso.GetExtensionName(File)) ="DOC" or UCase(fso.GetExtensionName(File)) ="DOCX" Then List.WriteLine(File.Path) Sum = Sum + 1 End If Next

augreed avatar Oct 03 '22 01:10 augreed