procedure TMain.Button1Click(Sender: TObject);
var
s,x:OleVariant;
w:WideString;
begin
s:='ENT_CNAME';
w:='eeee';
Doc.Books.Item(s).Range
Doc.Books.Item(s).Range.Text:=w;//************************
end;*** 号行提示不能删除怎么回事????
var
s,x:OleVariant;
w:WideString;
begin
s:='ENT_CNAME';
w:='eeee';
Doc.Books.Item(s).Range
Doc.Books.Item(s).Range.Text:=w;//************************
end;*** 号行提示不能删除怎么回事????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货