如何在Delphi中控制在Word中插入新文档时另起一页？

Question

使用如下方法插入文档时，假如前一篇文档没有占满一页，则后面插入的文档会自动插入在那一页的空白处。
我的问题如题。var
  WordApp: Variant;
begin
  WordApp := CreateOleObject('Word.Application');
  FormWait.WaitBox('正在载入文档，请稍候……');
  try
    WordApp.Documents.open('d:\temp\1.doc');
    WordApp.Selection.InsertFile('d:\temp\2.doc','',False,false,false);
    WordApp.Selection.InsertFile('d:\temp\3.doc','',False,false,false);
    WordApp.ActiveDocument.SaveAs('d:\temp\4.doc');
  finally
    FormWait.WaitBoxClose;
    WordApp.Quit;
  end;
  OleContainer1.CreateObjectFromFile('d:\temp\4.doc',true);
end;

Answer 1

或者谁能提供比较完整的vba参考资料也可以，我在网上或者大富翁离线数据库等只能搜索到零星的一些东西，感觉不够用

Answer 2

你可以在插入文档之前插入一个分页符。
代码为：    
uses ComObj,Word2000;WordApp := CreateOleObject('Word.Application');
//插入一个分页符
WordApp.Selection.InsertBreak(Type:=wdPageBreak);
//插入文档
WordApp.Selection.InsertFile('Word文件名');

Answer 3

你可以在插入文档之前插入一个分页符。
代码为：    
uses ComObj,Word2000;WordApp := CreateOleObject('Word.Application');
WordApp.Documents.Add;
//插入一个分页符
WordApp.Selection.InsertBreak(Type:=wdPageBreak);
//插入文档
WordApp.Selection.InsertFile('Word文件名');

Answer 4

vba参考资料可以直接看Word的帮助呀。

Answer 5

呵呵，原来就要一行代码。
word的帮助我也找过，找了半天不知所云，加上这两天word的帮助莫名其妙的打不开了，有时间再好好看看。
200分给你。兄弟你快要升星了吧？升星的时候别忘了散分叫我去凑凑热闹哈:D