Delphi操作Wrod的几个知识点
2006-02-04 14:00:21 来源:WEB开发网//-------------------初始化--------------------
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;
- ››操作系统下创建虚拟磁盘的实用技巧
- ››Delphi实现把10进制转换成16进制的函数进制转化
- ››Delphi中将字符串按给定字符分隔(似split函数功能...
- ››Delphi 动态创建窗体,锁定窗口赋值
- ››Delphi 与 VC 共享接口和对象
- ››Delphi图像处理 -- 表面模糊
- ››操作系统资源不足两种方案解决办法
- ››Delphi之多线程实例
- ››Delphi SelectSingleNode的使用 根据节点属性获取...
- ››Delphi接口详述
- ››delphi 远程调试
- ››Delphi与DirectX之DelphiX(34): TDIB.Lightness()...
赞助商链接