首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

WORD各个文档的合并,该如何处理

2012-03-16 
WORD各个文档的合并请用vf代码怎样将若干个word文档合并成一个文档呢?如word1、word2、word3合成word,且后一

WORD各个文档的合并
请用vf代码怎样将若干个word文档合并成一个文档呢?如word1、word2、word3合成word,且后一个文档在新的一页?谢谢了!·!!!!

[解决办法]
大概这样就可以了:

VB code
DIMENSION laFiles[3]m.laFiles[1] = 'c:\1.doc'm.laFiles[2] = 'c:\2.doc'm.laFiles[3] = 'c:\3.doc'm.loWord = NewObject('Word.Application')With m.loWord As Word.Application  .Documents.Open(m.laFiles[1])  For m.ii = 2 To ALen(m.laFiles)    .Documents.Open(m.laFiles[m.ii])    .Selection.WholeStory()    .Selection.Copy()    .ActiveWindow.Close()    .Selection.EndKey(6)    .Selection.InsertBreak(7)    .Selection.PasteAndFormat(0)  EndFor  .Documents.Close()  .Quit()EndWithm.loWord = Null 

热点排行