求助：vbs能合并word文档吗

随风

求助：vbs能合并word文档吗
123文件夹内有两个word文档，a.doc和b.doc
现需要把b.doc内容接在a.doc的下面
但是a.doc和b.doc的字体、页面设置等都不一样，最主要的a.doc是双栏显示，而b.doc是单栏显示
要求b.doc与a.doc合并后，各自的设置都保持不变。
能做到吗？

Seter

随风大大一出就出这么难的题 55 俺承认俺是新手不会...先占个楼...有好方法了在发上来~

youxi01

问题是双栏 和 单栏 各自还要保持吗？没见过这样的设置：在同一word中，同时存在不同的栏

随风

要保持，一定要保持,如果有难度，可以假设前面的（即a.doc的）双栏，正好占满a.doc的最后一页

[ 本帖最后由 随风 于 2009-10-8 22:13 编辑 ]

随风

解决不了吗？

523066680

哇咔咔，不要动！
sendkeys全屏复制 切换word文档， {down}到最下方，然后粘贴 。
（别骂我。）

youxi01

当然可以解决，我试试，但不保证！

zqz0012005

直接用 InsertFile 方法把所有文件插入到一个文件应该可以吧？
现在没有环境测试。

1. Set objWord = CreateObject("Word.Application")
   
2. 'objWord.Visible = True
   
3. Set objDoc = objWord.Documents.Add()
   
4. Set objSelection = objWord.Selection
   
5. objSelection.InsertFile "C:\123\a.doc"
   
6. objSelection.TypeText vbCrLf
   
7. objSelection.InsertFile "C:\123\b.doc"
   
8. objDoc.SaveAs "C:\123\all.doc"
   
9. objWord.Quit

复制代码

youxi01

将本vbs文件和a.doc、b.doc保存到同一目录下
测试代码：

1. 
   
2. ON ERROR RESUME NEXT
   
3. Set WordApp=CreateObject("word.application")
   
4. 'WordAPP.visible=True
   
5. Set FSO=CreateObject("Scripting.FileSystemObject")
   
6. SelfPath=FSO.GetFolder(".").Path & ""
   
7. FileName1=SelfPath & "a.doc"
   
8. FileName2=SelfPath & "b.doc"
   
9. Set Doc1=WordApp.Documents.Open(FileName1)
   
10. Set Doc2=WordApp.Documents.Open(FileName2)
    
11. TextColumnNum=Doc2.PageSetup.TextColumns.count
    
12. WordApp.selection.WholeStory
    
13. WordApp.selection.Copy
    
14. Doc1.Activate
    
15. WordAPP.selection.move 6
    
16. WordApp.Selection.TypeParagraph
    
17. RangeStart=WordApp.selection.start
    
18. WordApp.selection.Paste
    
19. RangeEnd=Doc1.content.end
    
20. Doc1.Range(RangeStart,RangeEnd).select
    
21. Doc1.Range(RangeStart, RangeStart).InsertBreak 3
    
22. WordApp.selection.Start = WordApp.selection.Start + 1
    
23. Doc1.Range(RangeStart, RangeEnd).InsertBreak 3
    
24. WordApp.Selection.PageSetup.TextColumns.SetCount 1
    
25. Doc1.save
    
26. msgbox "文件合并完成!",vbinformation+vbokonly,"Doc合并"
    
27. Set FSO=nothing
    
28. Set aDoc=nothing
    
29. WordApp.quit
    
30. 
    

复制代码