[已解决]怎么打开word并全选复制

qwh923820

在EXCEL 里面写一个宏，可以打开制定路径的word，并将word 内容全选复制到EXCEL，并且关闭WORD

最佳答案

月排行榜 / 总排行榜

Zipall

2016-3-23 14:09

1. Sub test()
   
2.     Set wd = CreateObject("word.application")
   
3.     Set doc = wd.documents.Open("z:\test.doc")
   
4.     doc.Range.Copy
   
5.     'range("A1").select
   
6.     ActiveSheet.Paste
   
7.     doc.Close
   
8.     wd.Quit
   
9. End Sub

复制代码

跳转到最佳答案楼层

Zipall

1. Sub test()
   
2.     Set wd = CreateObject("word.application")
   
3.     Set doc = wd.documents.Open("z:\test.doc")
   
4.     doc.Range.Copy
   
5.     'range("A1").select
   
6.     ActiveSheet.Paste
   
7.     doc.Close
   
8.     wd.Quit
   
9. End Sub

复制代码

qwh923820

Zipall 发表于 2016-3-23 14:09

谢谢