[已解决]请教高手如何通过vba在EXCEL里新建word并将A1单元格内容复制到word里面。

ynslyjb

请教高手如何通过vba在EXCEL里新建word并将A1单元格内容复制到word里面。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-16 18:17

1. Sub toword()
   
2.     Dim wd As Object
   
3.     Application.ScreenUpdating = False
   
4.     Set wd = CreateObject("word.application")
   
5.     wd.Application.Visible = True
   
6.     Range("a1").Copy
   
7.     wd.documents.Add
   
8.     wd.Selection.PasteSpecial DataType:=2, Placement:=0
   
9.     Application.ScreenUpdating = False
   
10.     Application.CutCopyMode = False
    
11. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub toword()
   
2.     Dim wd As Object
   
3.     Set wd = CreateObject("word.application")
   
4.     wd.Application.Visible = True
   
5.     Range("a1").Copy
   
6.     wd.documents.Add
   
7.     wd.Selection.Paste
   
8. 
   
9. End Sub

复制代码

hwc2ycy

1. Sub toword()
   
2.     Dim wd As Object
   
3.     Application.ScreenUpdating = False
   
4.     Set wd = CreateObject("word.application")
   
5.     wd.Application.Visible = True
   
6.     Range("a1").Copy
   
7.     wd.documents.Add
   
8.     wd.Selection.PasteSpecial DataType:=2, Placement:=0
   
9.     Application.ScreenUpdating = False
   
10.     Application.CutCopyMode = False
    
11. End Sub

复制代码

ynslyjb

hwc2ycy 发表于 2013-3-16 18:17

高手，碉堡了，可以介绍点vba入门的经验么？

hwc2ycy

ynslyjb 发表于 2013-3-16 20:19
高手，碉堡了，可以介绍点vba入门的经验么？

把校长的视频学习下。

ynslyjb

hwc2ycy 发表于 2013-3-16 20:42
把校长的视频学习下。

我居然猜到你要说什么了，哈哈哈，淘宝上已经买掉了

hwc2ycy

ynslyjb 发表于 2013-3-16 20:56
我居然猜到你要说什么了，哈哈哈，淘宝上已经买掉了

呵呵，那就好好学习，多练练。

neoplanz

hwc2ycy 发表于 2013-3-16 20:42
把校长的视频学习下。

校长的视频在哪里？给个链接，谢谢！