Delphi2007中点打印时调出Word文件，如一页显示不完怎么分隔？

Question

Delphi2007中点打印时调出Word文件，Word文件是一个表格，格式如下：
        交通事故现场勘查笔录
---------------------------------
事故时间
---------------------------------
事故地点
---------------------------------
勘查记录如下：
---------------------------------
<#kcjl>---------------------------------
现场勘查人员：      记录人：
---------------------------------<#kcjl>是勘查记录的内容，如果超过一页，则第二页内容为：     交通事故现场勘查笔录（续页）
---------------------------------
<#kcjl>---------------------------------
现场勘查人员：      记录人：
---------------------------------

Answer 1

<#kcjl> 是备注型字段，如第一页显示不完，则转到下一页，同时要加一行（不要在页眉）：交通事故现场勘查笔录（续页）
这样<#kcjl> 就被分开了，如果<#kcjl> 很多则会分为多页，如何实现？

Answer 2

elphi操作Wrod的几个知识点var
  wApp,work:Variant;  try
   wApp:=GetActiveOleObject('word.Application');
  except
   wApp:=CreateOleObject('word.Application');
  end;//---------------替换字符--------------------  wApp.selection.find.text:='<%a2%>';
  wApp.selection.find.replacement.text:=lb;
  wApp.selection.find.execute(replace:=wdReplaceAll);//----------------------隐藏WORD菜单和工具栏----------------------if OC.State in [osUIActive]  then 
 begin
  OC.OleObjectInterface.QueryInterface(IOleInPlaceObject,IOO);
  IOO.UIDeactivate;
  IOO :=nil;
 end;//-----------------根据书签导数据------ wApp.Selection.GoTo(What:=wdGoToBook,Name:='ZCZD'+IntToStr(i));
  wApp.Selection.typetext('■')//-------------------生成页眉页脚并写入数据----------  wApp.Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:='FLAG');
  If wApp.ActiveWindow.View.SplitSpecial <> wdPaneNone Then
      wApp.ActiveWindow.Panes(2).Close;
  If (wApp.ActiveWindow.ActivePane.View.Type = wdNormalView) Or (wApp.ActiveWindow.ActivePane.View.Type = wdOutlineView) Then
      wApp.ActiveWindow.ActivePane.View.Type := wdPrintView;
  wApp.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
  wApp.Selection.ParagraphFormat.Borders.item(wdBorderLeft).LineStyle := wdLineStyleNone;
  wApp.Selection.ParagraphFormat.Borders.item(wdBorderRight).LineStyle := wdLineStyleNone;
  wApp.Selection.ParagraphFormat.Borders.item(wdBorderTop).LineStyle := wdLineStyleNone;
  wApp.Selection.ParagraphFormat.Borders.item(wdBorderBottom).LineStyle := wdLineStyleNone;
  wApp.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageFooter;
  wApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphRight;
  if (DM.XM_DS.FieldByName('tg_flag').AsInteger = 2) and (DM.XM_DS.FieldByName('tj_flag').AsInteger = 0) then
    wApp.Selection.TypeText(Text:='合`格`任`务`书')
  else
    wApp.Selection.TypeText(Text:='不合格任务书');
  wApp.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;

Answer 3

里面有太多没有定义的，如GetActiveOleObject  CreateOleObject  OC  IOO
能不能写全面一点，是不是三方控件？