求助 如何将一个文件夹下面的word按顺序黏贴在一个word中

ddhhyy16

按照0101  0102   0103.。。。。。。。。。。。。。。。。的顺序将文件夹中的word粘贴在一个word里面~~~
谢谢了                vba该如何写

wj2368

1. Sub 合并文档()
   
2. Application.ScreenUpdating = False
   
3. MyPath = ActiveDocument.Path
   
4. MyName = Dir(MyPath & "" & "*.doc")
   
5. i = 0
   
6. Do While MyName <> ""
   
7. If MyName <> ActiveDocument.Name Then
   
8. Set wb = Documents.Open(MyPath & "" & MyName)
   
9. Selection.WholeStory
   
10. Selection.Copy
    
11. Windows(1).Activate
    
12. Selection.EndKey Unit:=wdLine
    
13. Selection.TypeParagraph
    
14. Selection.Paste
    
15. i = i + 1
    
16. wb.Close False
    
17. End If
    
18. MyName = Dir
    
19. Loop
    
20. Application.ScreenUpdating = True
    
21. End Sub

复制代码

wj2368

忘记说，放在新建的word文档里，保存在同一文件夹中运行

wj2368

还是传个附件

ddhhyy16

wj2368 发表于 2015-4-14 11:28
还是传个附件

额，运行完，合并的word为何木有内容呢？？？

wj2368

ddhhyy16 发表于 2015-4-14 11:40
额，运行完，合并的word为何木有内容呢？？？

额什么啊，真不小人

wj2368

ddhhyy16 发表于 2015-4-14 11:40
额，运行完，合并的word为何木有内容呢？？？

。。。。。。。。。。。。。。。

wj2368

ddhhyy16 发表于 2015-4-14 11:40
额，运行完，合并的word为何木有内容呢？？？

..............

ysh_red

密码呀我能怎么用呢？唉