欢迎来到 - 多学网 - http://www.duoxue8.com !
当前位置:多学网学习教育电脑学习办公技巧将多个word文件通过编程合并成一个word文件

将多个word文件通过编程合并成一个word文件

[11-11 12:19:17]   来源:http://www.duoxue8.com  办公技巧   阅读:502
将多个word文件通过编程合并成一个word文件,标签:office教程,office入门,office教程学习,http://www.duoxue8.com

以下代码是将两个word文件通过编程合并成一个word文件(两个以上类似),以VB为例(其他语言类似)。

vb 代码复制内容到剪贴板
  1. Sub Main()    
  2. Dim a As Word.Application    
  3. Dim b As Word.Document    
  4. Dim c As Word.Document    
  5. Dim e As Word.Range    
  6. Set a = CreateObject("Word.Application")    
  7. Set b = a.Documents.Add(Visible:=False)    
  8. Set c = a.Documents.Open(FileName:="z:ka1.doc", ReadOnly:=True)    
  9. For Each e In c.Words    
  10. b.Range.InsertAfter e.Text    
  11. Next    
  12. c.Close    
  13. Set c = a.Documents.Open(FileName:="z:ka2.doc", ReadOnly:=True)    
  14. For Each e In c.Words    
  15. b.Range.InsertAfter e.Text    
  16. Next    
  17. c.Close    
  18. Set c = Nothing    
  19. b.SaveAs "z:kaaa.doc"    
  20. b.Close    
  21. Set b = Nothing    
  22. Set a = Nothing    
  23. End Sub    
  24.   



将多个word文件通过编程合并成一个word文件 结束。
Tag: 办公技巧office教程,office入门,office教程学习电脑学习 - 办公技巧
将多个word文件通过编程合并成一个word文件相关文章