在Word模板中能否标示区域,在Delphi中能否对标示的区域,进行操作
解决方案 »
- locate查找记录是不是不支持中文
- 如何判断调用外部打印程序已经运行完毕
- 谁知道如何操作TMemo的滚动条?
- 在配置BDE连接access时,报"General SQL error"
- 怎样将一个表中的全部数据追加到别一个表的后面????在线
- Access voilation错误!!!真的很急!!恳请有人帮忙解决!!
- 继续寻求ExpressPrintSystem FOR D6下载地址
- 请问如何制作可以分割的窗体?就象WINAMP那样,可以隐藏部分窗体??
- 一个query的用法:汇总的问题
- 程序报错,求大神指教
- 100分!高手指教:如何让我的Form不被最小化(注意:是要用户点击'显示桌面'按钮也不最小化)
- SQLServer2000中什么字段类型存放Ico(图标文件)、Jpeg文件
声明:
1.TWordObeject 类可以使用 ..\Borland\Delphi6\Demos\ActiveX\OleAuto\Word8 下的AutoImpl.pas 单元。
2.在基本数据表模版.doc中已经建立了一个文档自动化 GOTOBUTTON 类型的域,var
a1, a2, a3, a4 : OleVariant;
VarW : TWordObject;
begin
VarW := nil;
if not Assigned(VarW) then
VarW := TWordObject.Create;
VarW.Visible := True;
VarW.NewDoc(extractfilepath(Application.ExeName ) + '基本数据表模版.doc');
a1 := wdGoToField; a2 := wdGoToNext; a3 := 1; a4 := 'GOTOBUTTON';
VarW.Application.Selection.GoTo_(a1, a2, a3, a4); //顺序搜索你建立的域
a1 := wdCharacter; a2 := 1; a3 := wdExtend;
VarW.Application.Selection.MoveRight(a1,a2,a3); //选中域后
Varw.InsertText(Wname); //把你想填入的内容替换域
...
Varw.Savas('你的目的文件');
...
如何建立在“基本数据表模版.doc”中建立了一个文档自动化 GOTOBUTTON 类型的域
wdGoToField 应该引用那些单元。我已引用了AutoImpl.pas
详细说说好吗?
我可以另开帖子加分