var
wapp: OleVariant;
Doc: Variant;
begin
if OpenDialog1.Execute then
begin
wapp:= CreateOleObject('Word.Application');//这里就执行不了。
Doc :=V.Documents.Open(OpenDialog1.FileName);
Memo1.Text:=Doc.Content.Text;
Doc.Close;
end;
end;
wapp: OleVariant;
Doc: Variant;
begin
if OpenDialog1.Execute then
begin
wapp:= CreateOleObject('Word.Application');//这里就执行不了。
Doc :=V.Documents.Open(OpenDialog1.FileName);
Memo1.Text:=Doc.Content.Text;
Doc.Close;
end;
end;
ComObj,Word2000;
有没有加如ComObj单元啊？
var
wapp: OleVariant;
Doc: Variant;
begin
if OpenDialog1.Execute then
begin
{
//这里出错因为它不知道CreateOleObject函数，把ComObj加入
interface uses 下
//搞定试一下。
} wapp:= CreateOleObject('Word.Application');//这里就执行不了。
Doc :=//这里是wapp不是V
wapp.Documents.Open(OpenDialog1.FileName);
Memo1.Text:=Doc.Content.Text;
Doc.Close;
end;
end;
具体什么代码我要翻书了，好久没有写过这些程序了
回复 | 推荐 | 收藏 | 专题 | 公告 | 管理 | 保存 | 回复通知 | 关闭窗口
主 题： 下列代码错误，海天子进来看看
作 者： 0000007 (0007)
等 级：
信 誉 值： 100
所属论坛： Delphi VCL
问题点数： 50
回复次数： 8
发表时间： 2004-01-03 17:50:19
var
wapp: OleVariant;
Doc: Variant;
begin
if OpenDialog1.Execute then
begin
wapp:= CreateOleObject('Word.Application');//这里就执行不了。
Doc :=V.Documents.Open(OpenDialog1.FileName);
Memo1.Text:=Doc.Content.Text;
Doc.Close;
end;
end;
回复人： zswangII(伴水清清)(职业清洁工) ( ) 信誉：105 2004-01-03 18:43:00 得分:0
建议使用TWordApplication元件～～
Top
回复人： xt12822121(XT_CN) ( ) 信誉：100 2004-01-04 23:17:00 得分:0
uses
ComObj,Word2000;
Top
回复人： ly_liuyang(Liu Yang) ( ) 信誉：130 2004-01-05 00:33:00 得分:0
用TWordApplication组件就好了，用不着自己写OLE
Top
回复人： year2000bug(江南) ( ) 信誉：100 2004-01-05 00:53:00 得分:0
机器里有没有装Word啊。？
有没有加如ComObj单元啊？
Top
回复人： lw549(那个孩子他爹) ( ) 信誉：105 2004-01-05 11:35:00 得分:0
应该是没有安装word的原因
Top
回复人： 0000007(0007) ( ) 信誉：100 2004-01-06 15:42:00 得分:0
他提示：variant does not reference an automation object是为什么呢？
Top
回复人： 123amw(123) ( ) 信誉：100 2004-01-07 17:39:00 得分:0
看这里：
var
wapp: OleVariant;
Doc: Variant;
begin
if OpenDialog1.Execute then
begin
{
//这里出错因为它不知道CreateOleObject函数，把ComObj加入
interface uses 下
//搞定试一下。
} wapp:= CreateOleObject('Word.Application');//这里就执行不了。
Doc :=//这里是wapp不是V
wapp.Documents.Open(OpenDialog1.FileName);
Memo1.Text:=Doc.Content.Text;
Doc.Close;
end;
end;