请教各位高手如何用VBS调用软件批量转化PDF为word

xinxiangsky

请教各位高手如何用VBS调用软件ABBYYFineReaderPortable.exe
批量转化PDF为word 我现在可以实现单篇转换但是如何做循环不会。

Set ws= CreateObject("WScript.Shell")
set wshell = Wscript.CreateObject("Wscript.Shell")
ws.Run "D:\luxun\403#鲁迅的样子.pdf"
Set ws= Nothing
wscript.sleep 20000
Wshell.SendKeys "^%w"
wscript.sleep 2000
Wshell.SendKeys "{ENTER}"
wscript.sleep 25000
Wshell.SendKeys "{ENTER}"
wscript.sleep 2000