扫描Word文档的图像,复制并粘贴到Excel选项卡
问题描述:
我有几个技术文档,我想扫描200多页,从中复制图像/图形,并粘贴到单独的Excel选项卡中,每个图像一个/数字。有没有办法用VBA或者像R这样的脚本语言来做到这一点?扫描Word文档的图像,复制并粘贴到Excel选项卡
道歉,如果这是有点重复问其他问题。但是,我没有看到重新复制图像的具体问题。谢谢!
答
你可以写一个短的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
太感谢你了! ! – jd8585
另一个快速问题,这是抛出一个错误,说: 对象'_Worksheet'的'粘贴'失败。 我不确定是什么原因造成的错误,试图排查几次后。任何帮助不胜感激。 – jd8585
声音像剪贴板中包含工作表而不是来自Word文档的图片。你确定你复制了正确的对象吗? –