在Word模板中能否标示区域,在Delphi中能否对标示的区域,进行操作

解决方案 »

  1.   

    可以用OLE方式实现 ^v^ ...
      

  2.   

    在Word模板中建立文档自动化域,在程序中搜索你建立的域,选中域后进行操作。
      

  3.   

    做个例子你看就明白了:
    声明: 
       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('你的目的文件'); 
       ...
      

  4.   

    To noflybird(东方不亮) 
    如何建立在“基本数据表模版.doc”中建立了一个文档自动化 GOTOBUTTON 类型的域
    wdGoToField 应该引用那些单元。我已引用了AutoImpl.pas 
    详细说说好吗?
    我可以另开帖子加分