| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 1084 人关注过本帖
标题:求助大神,用delphi7 怎样替换wrod文档所有文本框中相同内容
只看楼主 加入收藏
tzdliutao
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-7-28
结帖率:0
  已结贴   问题点数:10  回复次数:1   
求助大神,用delphi7 怎样替换wrod文档所有文本框中相同内容
需要用delphi代码把所有文本框中的“数量”替换成“产品量”


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, Word2000,comobj;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
 msword : Variant ;
begin
  MSWord:=CreateOLEObject('Word.Application');
  MSWord.Documents.Open(FileName:='G:\商务文件.doc');
  MSWord.Visible := 1;
  msword.selection.find.clearformatting;
  msword.selection.find.replacement.clearformatting;
  msword.selection.find.text:=‘数量’ ;
  msword.selection.find.replacement.text:=‘产品量’ ;
  msword.Selection.Find.Execute(Replace:=wdreplaceall);
end;
end.
为什么图上黑色框住的两个“数量”能替换,文本框中的数量就不能替换呢?
求大神指教
附件: 您没有浏览附件的权限,请 登录注册
2017-08-02 14:32
wzqoo
Rank: 2
等 级:论坛游民
帖 子:1
专家分:10
注 册:2017-8-4
  得分:10 
文本框和文档中的文本应该是2个不同的对象吧,查找一下文本框然后替换。
2017-08-04 15:53







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021459 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved