我打算做一个这样的word文档,如下:
标题XXXXXXXXX
文字说明1aaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
一个6行4列的表格
文字说明2aaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa我是一个新手,继续大家帮助,谢谢了,在线等。
标题XXXXXXXXX
文字说明1aaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
一个6行4列的表格
文字说明2aaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa我是一个新手,继续大家帮助,谢谢了,在线等。
解决方案 »
- delphi VCl组件
- Delphi Ttable组件链接SQL数据库
- 请教一个关于Button和Groupbox的问题,在线等,谢谢!
- 如何获取文件安装的路径?
- 大家来讨论ado和bde 的优劣
- 关于TTreeView-----Delphi7的bug?我的编译器出了问题?还是...我错了?
- 怎样改变listview中listitem的字体颜色?
- 把类放入DLL中,可是。。。
- delphi中向数据库中添加语句问题??
- DELPHI 6 怎么在MDI 主窗体 加背景图片 好象用TIMAGE LOAD 图片会移位置
- 如何使用indy组件发送、接收邮件,包括附件
- 请教delphi7的TPieSeries组件在哪?
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:=wdGoToBook,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;