(OCRで)PDFを単語に変換または一括変換するためのマクロ/ホットキーの設定方法


4

私は頻繁に(1日に10回以上)pdfを単語に変換する必要があります。私はAcrobat Proの「名前を付けて保存」機能を使います。このプロセスをスピードアップし、ワンクリックで実行するための良い方法はありますか?理想的には、処理中にadobeも拘束されないような方法(つまり、他のオプションからフリーズする)。

最良の場合は、ファイルを右クリックすることですが、どんなアイデアにも感謝しています。

回答:


2

PowerShellでスクリプトの実行を許可し、atと入力します。 cmd 管理者として実行:

セレクトピン cmd 押す シフト + 右マウスクリック

enter image description here

enter image description here

powershell -command "Set-ExecutionPolicy RemoteSigned"

enter image description here

enter image description here

enter image description here

デスクトップにPdfConvertフォルダを作成し、実行します Pdf2Docx4.cmd

enter image description here

フォルダ$ PDFpath :)にあるすべてのpdfファイルをdocxに変換します。

Pdf2Docx4.cmd:

powershell .\PdfConvert\Pdf2Docx4.ps1

Pdf2Docx4.ps1:

$TypeExt="docx"
$closeDocParam = $true;
$PDFpath = "D:\VBS\PS-29-AcrobatProX\"

Get-ChildItem -Filter *.pdf |Where {

# logical document

    $AVDoc = New-Object -ComObject AcroExch.AVDoc;    

    $AVDoc.Open($_.Fullname, "") | Out-Null;
# physical document

    $PDDoc = $AVDoc.GetPDDoc();                           
    $JavaScriptObject = $PDDoc.GetJSObject();                        
# get the bridge JavaScript Object

    $T = $JavaScriptObject.GetType();

    $T.InvokeMember("SaveAs",

        [Reflection.BindingFlags]::InvokeMethod -bor `
            [Reflection.BindingFlags]::Public       -bor `
            [Reflection.BindingFlags]::Instance          ,

        $null,
        $JavaScriptObject,
        @([IO.Path]::ChangeExtension($_.Fullname, $TypeExt), ("com.adobe.acrobat."+$TypeExt)));

        $T.InvokeMember("closeDoc", 

        [Reflection.BindingFlags]::InvokeMethod -bor `
            [Reflection.BindingFlags]::Public       -bor `
            [Reflection.BindingFlags]::Instance          ,

            $null, 
            $JavaScriptObject, 
            $closeDocParam) | Out-Null;

    $PDDoc.Close()  | Out-Null;
    $AVDoc.Close(1) | Out-Null;
}

どうもありがとうございます。これはおそらく最善の解決策のように見えますが、今私はパワーシェルについてやることをある程度習得しました。私はこれを正解としてできるだけ早く確認します(実行するのに十分なPSを習得したら)。
Jake

@Jake OSバージョン?
STTR

最新のWindows 8.1
Jake

@ジェイク更新、問題がある場合は書き込みます
STTR

私は今とても幸せです。それは素晴らしかったです。これは私にとって非常に大きな助けになります。ありがとうございました。信じられないほど感謝しています。どういうわけかそれを前払いするつもりです。
Jake
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.