直接用 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
复制代码
|