Solved , thanks VBA 複制 WORD 文檔里的相片 到EXCEL文檔

KCFONG

   請教怎樣 用 EXCEL VBA   複制 WORD 文檔里的相片 到EXCEL文檔



Sub test()
Dim objword As Object, s, objexcel As Object
Set objword = CreateObject("Word.Application")
objword.Visible = True

objword.Documents.Open (ThisWorkbook.Path & "\a1.doc")
objword.activedocument.Shapes("Picture 3").Select
  
Selection.Copy
objword.activedocument.Close

objword.Quit
Set objdoc = Nothing
Set objword = Nothing

Set objexcel = CreateObject("excel.application")
With objexcel
ActiveSheet.Range("a1").Select
ActiveSheet.Paste
End With

End Sub

The macro didnot work ?????

[ 本帖最后由 KCFONG 于 2009-9-22 08:39 编辑 ]

KCFONG

Can someone help me???

拼音佳佳

http://club.excelhome.net/thread-479129-1-1.html

虽然不抱希望...也许你能读懂vba代码...

KCFONG

Thanks very much to 3/F, but that's not my need.

KCFONG

请高手帮帮忙，比较麻烦的

winland

"selection.copy" 这一句出错了。Selection默认是Excel的Selection，而Word中的Selection应该加上parent例如objword.Selection的表示方法。
Sub test()
Dim objword As Object, s, objexcel As Object
Set objword = CreateObject("Word.Application")
objword.Visible = True

objword.Documents.Open (ThisWorkbook.Path & "\a1.doc")
objword.activedocument.Shapes("Picture 3").Select
objword.Selection.Copy

ThisWorkbook.Activate
ActiveSheet.Range("a1").Select
ActiveSheet.Paste

objword.activedocument.Close

objword.Quit
Set objdoc = Nothing
Set objword = Nothing
End Sub

KCFONG

Thanks to Winland, problem wqs solved.