이미지의 워드 문서를 스캔하여 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