Sub OpenWordDocument()
Dim objWord As New Word.Application
Dim objDoc As Word.Document
' 파일 경로 및 파일 이름을 수정하여 열고자 하는 워드 파일의 경로와 파일 이름을 지정합니다.
Set objDoc = objWord.Documents.Open("C:\이미지테스트\aaa.docx")
' 워드 파일을 표시합니다.
objWord.Visible = True
objDoc.Range.Copy
ThisWorkbook.Sheets("Sheet1").Range("B2").PasteSpecial
Selection.Verb Verb:=Object
Range("b2").Select
ActiveSheet.Paste
ActiveSheet.Shapes.Range(Array("개체 1")).Delete '개체가 object 연속해서 불러오면 개체 숫자가 늘어나면서 오류
' 메모리에서 불필요한 객체를 제거합니다.
objDoc.Close
objWord.Quit
Set objDoc = Nothing
End Sub
Microsoft Word 16.0 object Library 참조 할것
'VBA CODE' 카테고리의 다른 글
| VBA 엑셀파일 PDF로 저장하기 (0) | 2023.04.02 |
|---|---|
| VBA 다른곳에 있는 엑셀파일 불러와서 붙여넣기 (0) | 2023.04.02 |
| VBA end(3)(2) end(xlup) end(3) end(1) end(2) end(4) (0) | 2023.03.31 |
| VBA 처리 속도 높이는 코드 (0) | 2023.03.31 |
| VBA 셀병합 Merge 쇼핑몰 동일고객 셀 병합 (0) | 2023.03.31 |