Delphi操作Wrod的几个知识点

【 tulaoshi.com - 编程语言 】

　　//-------------------初始化--------------------

　　 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:=wdGoToBookmark,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;