关于delphi＋word的问题？很急，请帮忙!

为什么编译时总提示 wdReplaceall 未定义？原程序如下：
procedure TForm3.Button2Click(Sender: TObject);
var
wordapp:variant;
MatchCase, MatchWholeWord, find1, rep1, Format,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,Wrap, Replace: OleVariant;
{MyDoc: TWordapplication;}
t:integer;
begin
ssn1:=ExtractFilePath(Application.Exename);
   t:=length(ssn1)-5;
   ssn1:=copy(ssn1,1,t);
   ssn3:=ssn1+'data\' +'ºÏÍ¬±¸°¸.doc';
ssn4:=ssn1+'data\'+datamodule2.Table1.Fields[0].AsString+'ºÏÍ¬±¸°¸.doc';
{ssn1:='e:\product\form\ºÏÍ¬±¸°¸.doc';
ssn2:='e:\product\form\qºÏÍ¬±¸°¸.doc';}
  copyfile(pchar(ssn3),pchar(ssn4),true);
  wordapp:=createoleobject('word.application');
{ ExtractFilePath(Application.Exename}
wordapp.visible:=true;
wordapp.documents.open(filename:=ssn4);
Find1 := datamodule2.Table1.Fields[0].AsString;
Rep1 := 'gc'; MatchCase := false;
MatchWholeWord := true;
MatchWildcards := false;
MatchSoundsLike := false;
MatchAllWordForms := false;
Format := true;
Forward := true;
Replace := wdReplaceall;
wordapp.activedocument.selection.Find.Execute(find1, MatchCase, MatchWholeWord,MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,Wrap, Format, Rep1, Replace);

{ wordapp.quit;}
end;

另外，INDY中SMTP附近可以发送几个文件吗？如可以，怎么写？
TIdAttachment.Create(MailMessage.MessageParts,'e:\product\data\d1.db');

7 个解决方案

#1

关注

#2

只能关注一下

#3

确实没有看到声明的代码啊

#4

把它也声明为OleVariant类型即可

#5

编译是通过了，可并不替换成数据库的内容。

#6

uses word97

#7

刷新一下，

还不行的话，存成临时文件，再重新打开

#1

关注

#2