将多个word文件通过编程合并成一个word文件
01-01 20:00:14浏览次数:226次栏目:Word教程
标签:Word学习教程,word2007教程,Word学习网,Word教程,暂无联系方式
将多个word文件通过编程合并成一个word文件,
以下代码是将两个word文件通过编程合并成一个word文件(两个以上类似),以VB为例(其他语言类似)。
vb 代码复制内容到剪贴板
- Sub Main()
- Dim a As Word.Application
- Dim b As Word.Document
- Dim c As Word.Document
- Dim e As Word.Range
- Set a = CreateObject("Word.Application")
- Set b = a.Documents.Add(Visible:=False)
- Set c = a.Documents.Open(FileName:="z:ka1.doc", ReadOnly:=True)
- For Each e In c.Words
- b.Range.InsertAfter e.Text
- Next
- c.Close
- Set c = a.Documents.Open(FileName:="z:ka2.doc", ReadOnly:=True)
- For Each e In c.Words
- b.Range.InsertAfter e.Text
- Next
- c.Close
- Set c = Nothing
- b.SaveAs "z:kaaa.doc"
- b.Close
- Set b = Nothing
- Set a = www.qidian55.com
Nothing
- End Sub
-
,将多个word文件通过编程合并成一个word文件
《将多个word文件通过编程合并成一个word文件》相关文章