求助：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 方法把所有文件插入到一个文件应该可以吧？
现在没有环境测试。

Set objWord = CreateObject("Word.Application")
'objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.InsertFile "C:\123\a.doc"
objSelection.TypeText vbCrLf
objSelection.InsertFile "C:\123\b.doc"
objDoc.SaveAs "C:\123\all.doc"
objWord.Quit
复制代码

youxi01

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

ON ERROR RESUME NEXT
Set WordApp=CreateObject("word.application")
'WordAPP.visible=True
Set FSO=CreateObject("Scripting.FileSystemObject")
SelfPath=FSO.GetFolder(".").Path & "\"
FileName1=SelfPath & "a.doc"
FileName2=SelfPath & "b.doc"
Set Doc1=WordApp.Documents.Open(FileName1)
Set Doc2=WordApp.Documents.Open(FileName2)
TextColumnNum=Doc2.PageSetup.TextColumns.count
WordApp.selection.WholeStory
WordApp.selection.Copy
Doc1.Activate
WordAPP.selection.move 6
WordApp.Selection.TypeParagraph
RangeStart=WordApp.selection.start
WordApp.selection.Paste
RangeEnd=Doc1.content.end
Doc1.Range(RangeStart,RangeEnd).select
Doc1.Range(RangeStart, RangeStart).InsertBreak 3
WordApp.selection.Start = WordApp.selection.Start + 1
Doc1.Range(RangeStart, RangeEnd).InsertBreak 3
WordApp.Selection.PageSetup.TextColumns.SetCount 1
Doc1.save
msgbox "文件合并完成!",vbinformation+vbokonly,"Doc合并"
Set FSO=nothing
Set aDoc=nothing
WordApp.quit
 
复制代码