- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 合并word文档 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69227)
-- 发布时间：2015/6/1 19:05:00
-- 合并word文档
再上一个实例，合并文档。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:合并word文档.rar |
-- 发布时间：2015/6/1 19:33:00
--
内容合并？
Dim app As New MSWord.Application
try
Dim doc1 = app.Documents.Open("d:\\test1.doc")
app.ActiveWindow.Selection.WholeStory
app.ActiveWindow.Selection.Copy
Doc1.Close
Dim doc2 = app.Documents.Open("d:\\test2.doc")
app.ActiveWindow.Selection.WholeStory
app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
app.ActiveWindow.Selection.TypeParagraph
app.ActiveWindow.Selection.Paste
app.Documents.save
app.visible = True
catch ex As exception
msgbox(ex.message)
app.quit
finally
End try