Myślę, że poniższy VBscript powinien załatwić sprawę. To zajmie wszystkie pliki .pdf w danym folderze i zapisze je jako pliki .txt. Jedną z nich jest to, że twój komputer nie jest zablokowany, ponieważ używa polecenia WyślijKeys. Jeśli ktoś ma rozwiązanie, które działa, gdy komputer jest zablokowany, proszę go wysłać na mój sposób!
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "PATH_OF_ALL_PDFS_YOU_WANT_TO_CONVERT_HERE"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
extension = Mid(objFile.Name,len(objFile.Name)-3,4)
file = Mid(objFile.Name,1,len(objFile.Name)-4)
fullname = """PATH_OF_ALL_PDFS_YOU_WANT_TO_CONVERT_HERE" + objFile.Name + """"
fullname_txt = "PATH_OF_ALL_PDFS_YOU_WANT_TO_CONVERT_HERE" + file + ".txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
if extension = ".pdf" and not objFSO.FileExists(file+".txt") then
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run fullname
WScript.Sleep 1000
WshShell.SendKeys "%"
WScript.Sleep 100
WshShell.SendKeys "f"
WScript.Sleep 100
WshShell.SendKeys "h"
WScript.Sleep 100
WshShell.SendKeys "x"
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"
count = 0
'this little step prevents the loop from moving on to the next .pdf before the conversion to .txt is complete
Do While i=0 and count < 100
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(fullname_txt,8)
If Err.Number = 0 Then
i = 1
End If
count = count + 1
Wscript.Sleep 20000
Loop
end if
Next
Fuj, zwróć szczególną uwagę na tagowanie w przyszłości. Skategoryzuj swoje pytanie. _Nie staraj się podsumować tego. Każdy tag powinien być samodzielny. –
Nie wiesz, który system operacyjny jest uruchomiony, ale istnieje narzędzie o nazwie "pdftotext", które wydaje się robić to, co chcesz. Jest dostępny w systemie Linux, ale mogą istnieć porównywalne narzędzia do innych systemów operacyjnych. –
Przykro mi, zapomniałem wspomnieć o systemie operacyjnym. To jest Windows. Słyszałem o tym narzędziu; niestety kupowanie rozwiązania nie jest opcją - dlatego pozostajemy z budowaniem jednego. Dzięki! –