怎么把多个word文档合并为一个

suyunlong123

三瓦窑社区消防安全知识培训.rar (219.39 KB, 下载次数: 25)

2014-5-26 10:31 上传

点击文件名下载附件

三瓦窑社区联合开展四月份消防演练5.rar (978.31 KB, 下载次数: 16)

2014-5-26 10:31 上传

点击文件名下载附件

三瓦窑社区开展消防培训4月16日科普.rar (196.29 KB, 下载次数: 8)

2014-5-26 10:30 上传

点击文件名下载附件

三瓦窑社区开展消防安全应急疏散演练.rar (253.19 KB, 下载次数: 9)

2014-5-26 10:30 上传

点击文件名下载附件

三瓦窑社区开展节前隐患排查.rar (152.13 KB, 下载次数: 9)

2014-5-26 10:30 上传

点击文件名下载附件

三瓦窑社区开展餐饮场所液化气专项检查 2.rar (118.11 KB, 下载次数: 12)

2014-5-26 10:30 上传

点击文件名下载附件

suyunlong123

麻烦高手帮助小弟

suyunlong123

问题很难吗 面对word vba 我觉得很值得高手挑战

闻启学

suyunlong123 发表于 2014-5-26 10:32
麻烦高手帮助小弟

这么几个文件  复制粘贴  已经完成  还要用什么 VBA的

在等待时间已经完成啊

闻启学

suyunlong123 发表于 2014-5-26 10:35
问题很难吗 面对word vba 我觉得很值得高手挑战

VBA 要批量 才显得 有威力的

suyunlong123

写写代码 大侠 行吗

suyunlong123

闻启学 发表于 2014-5-26 11:11
VBA 要批量 才显得 有威力的

高手 指点下 小弟不才

zhaogang1960

复制、粘贴录制宏：

1. Sub Macro1()
   
2.     Dim p$, f$, w As Object
   
3.     Application.Visible = False
   
4.     Set w = ActiveDocument
   
5.     p = w.Path & ""
   
6.     Selection.WholeStory
   
7.     Selection.Delete Unit:=wdCharacter, Count:=1
   
8.     f = Dir(p & "*.doc")
   
9.     Do While f <> ""
   
10.         If f <> w.Name Then
    
11.             With Documents.Open(p & f)
    
12.                 Selection.WholeStory
    
13.                 Selection.Copy
    
14.                 w.Activate
    
15.                 Selection.PasteAndFormat (wdPasteDefault)
    
16.                 .Close
    
17.             End With
    
18.         End If
    
19.         f = Dir
    
20.     Loop
    
21.     Application.Visible = True
    
22. End Sub

复制代码

zhaogang1960

请测试附件
新建文件夹.rar (1.88 MB, 下载次数: 1238)

2014-5-26 22:50 上传

点击文件名下载附件

suyunlong123

zhaogang1960 发表于 2014-5-26 22:51
请测试附件

版主 谢谢 excelhome什么时候出一本关于word vba的书籍