怎样把从DBGRID中提取出的数据用WORD文档打开？
我没有找到更好的事件，就用了这个，有没有单击某一条记录来执行我以下的代码的事件？
procedure TFormMain.wwDBGrid1DblClick(Sender: TObject);
begin
edit1.Text :=wwDBGrid1.DataSource.DataSet.FieldByName('DO_INFO').AsString;
end;
我想做的是把提取出的'DO_INFO'内容用WORD文档打开而不是放到edit1.Text 里，就是单击一条记录时WORD打开，'DO_INFO'里的内容就出现了。有点象下载文档似的！谢谢赐教！
问题点数：10、回复次数：4Top
1 楼gsli（笨脑瓜儿）回复于 2006-03-24 16:30:39 得分 0
是不是嫌我给的分数太少了，可我只剩下这10分，对不起大家~Top
2 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-24 16:40:44 得分 0
不知道临时保存一个txt文件，然后调用word的方式能不能满足你的要求。Top
3 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-24 16:52:58 得分 0
procedure TForm1.Button1Click(Sender: TObject);
var
Template, NewTemplate,DocType,DocVisible : OleVariant;
begin
memo1.SelectAll;
memo1.CopyToClipboard;
Template := EmptyParam;
NewTemplate := EmptyParam;
DocType := EmptyParam;
DocVisible := EmptyParam;
WordApplication1.Connect; // WordApp : TWordApplication
WordApplication1.Visible := True;
WordApplication1.Documents.Add(Template,NewTemplate,DocType,DocVisible);
WordApplication1.Selection.Paste;
end;Top
4 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-24 17:03:41 得分 10
procedure TForm1.Button1Click(Sender: TObject);
var
Template, NewTemplate,DocType,DocVisible : OleVariant;
begin
Template := EmptyParam;
NewTemplate := EmptyParam;
DocType := EmptyParam;
DocVisible := EmptyParam;
WordApplication1.Connect; // WordApp : TWordApplication
WordApplication1.Visible := True;
worddocument1.range.insertafter('这里是要插入的字符串');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
wordapplication1.quit;//关闭word文件
wordapplication1.disconnect;
end;Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
