Delphi操作Wrod的几个知识点

pasckr

   //-------------------初始化--------------------
var wApp,work:Variant;
try wApp:=GetActiveOleObject('word.Application'); except wApp:=CreateOleObject('word.Application'); end;
//---------------替换字符--------------------
wApp.selection.find.text:=''; 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;