扫描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