掃描Word文檔的圖像，複製並粘貼到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