怎么用PB程序控制把多个文档合并或者说生成很长的带章节的WORD
如何用PB程序控制把多个文档合并或者说生成很长的带章节的WORD
网上查阅了很多资料，都是处理单个文件的。我需要把数据库里面的记录写成WORD文档，有章节的格式
我现在可以实现的是一条记录一个WORD文档，例如
文档1
标题一、字段一（第一行记录）
标题二、字段二（第一行记录）
标题三、字段三（第一行记录）
。。。。
然后我在循环里面不停的打开模版自动另存为其他名字
文档2
标题一、字段一（第二行记录）
标题二、字段二（第二行记录）
标题三、字段三（第二行记录）
。。。。
我现在想问的是N个文档有没有办法自动合并？或者说我可否把多条记录直接写在我的一个文档里？
尤其有的时候标题一是重复的，需要加在标题二下面，怎么操作好呢
多谢谢了，QQ 1650152
------解决方案--------------------
呵呵，可以呀，不复杂，
用VBA写程序就可以了，打一word文件，全选，复制，粘贴,再定位到文末，再打开另一个word,全选，复制，再粘贴，模拟这几个操作就可以了~~
------解决方案--------------------
ole_object.selection.typetext()
完全可以写到一个文档中，你不要自动打开新模板啊，第二个文档内容会继续写到WORD中光标停留的位置后，就这样一直追加你的新内容,只是排版得自己调整一下
------解决方案--------------------
FileOpen(ls_path_name, linemode!, Write!, lockwrite!, append!)
这样不就是在现有文件结尾处续写么？
FileOpen ( filename {, filemode {, fileaccess {, filelock {, writemode
{ encoding }}}}} )
writemode (optional)：
A value of the WriteMode enumerated datatype. When fileaccess is Write!, specifies whether existing data in the file is overwritten. Values are:
?Append! - (Default) Write data to the end of the file
?Replace! - Replace all existing data in the fileWritemode is ignored if the fileaccess argument is Read!
------解决方案--------------------
”激活某个文档“就是你
ole_object.ConnectToObject('',"word.application")
ole_active = ole_object.Documents.open(is_word_path)
is_word_path路径下的该文档
另外两个思路：
思路一：你也可以把你的书签合并到一个WORD中，就在那一个文件中插入你的数据，可能会比较麻烦，以前的多个文档的书签要是同名，就得改程序和WORD中的书签名。
思路二:你可以把你的以后生产的WORD中的内容全部COPY到第一份的最后面，也是可以的
第二种程序比较复杂，需要切换被激活的文档
另外即使不用书签，程序也完全可以控制WORD中的字体大小、颜色、缩进、插图等
这段代码共你参考
//函数：gf_copy(oleword,as_bookmark)
//参数： oleobject oleword
// string as_bookmark
//功能：将当前激活的WORD中的内容全部复制到另一份WORD的as_bookmark
标签处
oleword.Selection.WholeStory
oleword.Selection.Copy
oleword.ActiveDocument.close()
oleword.selection.goto(true,0,0,as_bookmark)
oleword.Selection.Paste
网上查阅了很多资料，都是处理单个文件的。我需要把数据库里面的记录写成WORD文档，有章节的格式
我现在可以实现的是一条记录一个WORD文档，例如
文档1
标题一、字段一（第一行记录）
标题二、字段二（第一行记录）
标题三、字段三（第一行记录）
。。。。
然后我在循环里面不停的打开模版自动另存为其他名字
文档2
标题一、字段一（第二行记录）
标题二、字段二（第二行记录）
标题三、字段三（第二行记录）
。。。。
我现在想问的是N个文档有没有办法自动合并？或者说我可否把多条记录直接写在我的一个文档里？
尤其有的时候标题一是重复的，需要加在标题二下面，怎么操作好呢
多谢谢了，QQ 1650152
------解决方案--------------------
呵呵，可以呀，不复杂，
用VBA写程序就可以了，打一word文件，全选，复制，粘贴,再定位到文末，再打开另一个word,全选，复制，再粘贴，模拟这几个操作就可以了~~
------解决方案--------------------
ole_object.selection.typetext()
完全可以写到一个文档中，你不要自动打开新模板啊，第二个文档内容会继续写到WORD中光标停留的位置后，就这样一直追加你的新内容,只是排版得自己调整一下
------解决方案--------------------
FileOpen(ls_path_name, linemode!, Write!, lockwrite!, append!)
这样不就是在现有文件结尾处续写么？
FileOpen ( filename {, filemode {, fileaccess {, filelock {, writemode
{ encoding }}}}} )
writemode (optional)：
A value of the WriteMode enumerated datatype. When fileaccess is Write!, specifies whether existing data in the file is overwritten. Values are:
?Append! - (Default) Write data to the end of the file
?Replace! - Replace all existing data in the fileWritemode is ignored if the fileaccess argument is Read!
------解决方案--------------------
”激活某个文档“就是你
ole_object.ConnectToObject('',"word.application")
ole_active = ole_object.Documents.open(is_word_path)
is_word_path路径下的该文档
另外两个思路：
思路一：你也可以把你的书签合并到一个WORD中，就在那一个文件中插入你的数据，可能会比较麻烦，以前的多个文档的书签要是同名，就得改程序和WORD中的书签名。
思路二:你可以把你的以后生产的WORD中的内容全部COPY到第一份的最后面，也是可以的
第二种程序比较复杂，需要切换被激活的文档
另外即使不用书签，程序也完全可以控制WORD中的字体大小、颜色、缩进、插图等
这段代码共你参考
//函数：gf_copy(oleword,as_bookmark)
//参数： oleobject oleword
// string as_bookmark
//功能：将当前激活的WORD中的内容全部复制到另一份WORD的as_bookmark
标签处
oleword.Selection.WholeStory
oleword.Selection.Copy
oleword.ActiveDocument.close()
oleword.selection.goto(true,0,0,as_bookmark)
oleword.Selection.Paste