源代码网整理以下//-------------------初始化--------------------
源代码网整理以下 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;
软件开发网 www.mscto.com
