Delphi操作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:=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;