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

zhaogang1960

suyunlong123 发表于 2014-5-27 13:06
版主 谢谢 excelhome什么时候出一本关于word vba的书籍

有《Word 2010实战技巧精粹》，单纯word vba估计市场很小

VBA万岁

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

在功能区设置了一个按钮，以方便对附件进行测试。截图：



附件：
新建文件夹.zip (1.92 MB, 下载次数: 312)

2014-5-27 19:45 上传

点击文件名下载附件

VBA万岁

VBA万岁 发表于 2014-5-27 19:46
在功能区设置了一个按钮，以方便对附件进行测试。截图：

声明：批量复制的代码仍然是赵老师的代码。
在此谢谢赵老师的帮助！

陈文华

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

老师你好，无意中看到你的作品，好棒。我收藏了。

陈文华

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

老师你好，怎样把一个多页的WORD文档拆分成多个一页一页的文档啊？

wj2368

陈文华 发表于 2015-9-18 09:47
老师你好，怎样把一个多页的WORD文档拆分成多个一页一页的文档啊？

1. Option Explicit
   
2. Sub SplitPagesAsDocuments()
   
3. Dim oSrcDoc As Document, oNewDoc As Document
   
4. Dim strSrcName As String, strNewName As String
   
5. Dim oRange As Range
   
6. Dim nIndex As Integer
   
7. Dim fso As Object
   
8. 
   
9. Set fso = CreateObject("Scripting.FileSystemObject")
   
10. Set oSrcDoc = ActiveDocument
    
11. Set oRange = oSrcDoc.Content
    
12. oRange.Collapse wdCollapseStart
    
13. oRange.Select
    
14. For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
    
15. oSrcDoc.Bookmarks("\page").Range.Copy
    
16. oSrcDoc.Windows(1).Activate
    
17. Application.Browser.Target = wdBrowsePage
    
18. Application.Browser.Next
    
19. 
    
20. strSrcName = oSrcDoc.FullName
    
21. strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
    
22. fso.GetBaseName(strSrcName) & "_" & nIndex & "." & _
    
23. fso.GetExtensionName(strSrcName))
    
24. Set oNewDoc = Documents.Add
    
25. Selection.Paste
    
26. oNewDoc.SaveAs strNewName
    
27. oNewDoc.Close False
    
28. Next
    
29. Set oNewDoc = Nothing
    
30. Set oRange = Nothing
    
31. Set oSrcDoc = Nothing
    
32. Set fso = Nothing
    
33. MsgBox "结束！"
    
34. End Sub
    

复制代码

陈文华

VBA万岁 发表于 2014-5-27 19:52
声明：批量复制的代码仍然是赵老师的代码。
在此谢谢赵老师的帮助！

老师你真好啊，我还以为和EXCEL一样插入一个按钮、指定宏呢，结果不行。老师，你是怎样设计的啊？能否指点一下吗？

VBA万岁

陈文华 发表于 2015-9-18 13:37
老师你真好啊，我还以为和EXCEL一样插入一个按钮、指定宏呢，结果不行。老师，你是怎样设计的啊？能否指 ...

这个要用到功能区，学习自定义功能区设计，可参考以下帖子——很多帖子用VSTO来设计Excel自定义功能区，我也试图用这个，可至今连VSTO下载安装都没成功：
   [分享] 细品RibbonX(1-59)

mw821009

过来收藏了，好东西啊

陈文华

VBA万岁 发表于 2015-9-21 11:48
这个要用到功能区，学习自定义功能区设计，可参考以下帖子——很多帖子用VSTO来设计Excel自定义功能区， ...

真是麻烦老师了，不行，太难了，学不了啊。