画像のワード文書をスキャンし、Excelタブにコピーして貼り付けます

Question

私はスキャンしたい200以上の技術文書をいくつか持っています。画像/図をコピーして別々のExcelタブに貼り付けます/フィギュアVBAやRのようなスクリプト言語でこれを行う方法はありますか？

これは、他の質問と幾分重複している場合は謝罪します。しかし、私は画像をコピーする特定の質問は表示されません。ありがとう！

Answer 1

クリップボードへのすべて（インライン）画像、コピー、それらを反復処理短いVBAマクロを書き込むことによってこの問題を解決して、Excelで新しいシートにそれぞれを貼り付けできます。

Sub CopyPicturesToExcel() 

    Dim oExcel As Excel.Application 
    Dim oWorkbook As Excel.Workbook 
    Dim oSheet As Excel.Worksheet 
    Dim oInlineShape As inlineShape 

    Set oExcel = New Excel.Application 
    oExcel.Visible = True 
    Set oWorkbook = oExcel.Workbooks.Add 

    For Each oInlineShape In ActiveDocument.InlineShapes 
     oInlineShape.Range.Copy 
     Set oSheet = oWorkbook.Sheets.Add(After:=oWorkbook.Sheets(oWorkbook.Sheets.Count)) 
     oSheet.Paste 
    Next 

    ' remove the empty first sheet 
    oWorkbook.Sheets(1).Delete 

End Sub