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

[nietulong]

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

[cxgreat2014]

这个可以有，我试试

[nietulong]

这个可以有，我试试

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

[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。麻烦指点迷津。

[cxgreat2014]

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

[nietulong]

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

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

[liflux]

这个可以有，我试试

刚刚找到一个思路，可以先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