word 的问题 ( 积分: 100 )

我用OleContainer控件调用word
程序如
OleContainer1.CreateObjectFromFile(FileName, False);
OleContainer1.Run;
OleContainer1.DoVerb(OleContainer1.PrimaryVerb);
成功调用
问题是
我现在只想让人看word文档
不想让别人编辑
请问怎么办
谢谢
在线等

我用OleContainer控件调用word
程序如
OleContainer1.CreateObjectFromFile(FileName, False);
OleContainer1.Run;
OleContainer1.DoVerb(OleContainer1.PrimaryVerb);
成功调用
问题是
我现在只想让人看word文档
不想让别人编辑
请问怎么办
谢谢
在线等

weboledocument: oleVariant;
weboledocument:=OleContainer.OleObject.application;

procedure Protectdocument();
var wdAllowOnlyReading:integer;
begin
wdAllowOnlyReading:=1;
try
worddoc.Activate;
weboledocument.application.ActiveDocument.protect(Password:='', NoReset:=False, Type:=wdAllowOnlyReading);//, UseIRM:=False, EnforceStyleLock:=False)
except
showmessage('文档已经处于保护状态。');
end;
end;

谢谢你 yuyuhaso1, worddoc.Activate-这个东西我没有看明白
我把我的程序再给你详细点
procedure TForm.FormShow(Sender: TObject);
filename:string;
begin
filename:=e:/abc.doc;
table1dgnr.savetofile(filename);//tabledgnr为存放word的字段
if not FileExists(filename) then Exit;
try
OleContainer1.CreateObjectFromFile(filename, False);
OleContainer1.Run;
OleContainer1.DoVerb(OleContainer1.PrimaryVerb);
except
;
end;
end;
现在请帮我在里面把你的程序插进去
谢谢你了

残留代码,不要用就是了
procedure TForm.FormShow(Sender: TObject);
filename:string;
var weboledocument: oleVariant;
wdAllowOnlyReading:integer;
begin
filename:=e:/abc.doc;
table1dgnr.savetofile(filename);//tabledgnr为存放word的字段
if not FileExists(filename) then Exit;
try
OleContainer1.CreateObjectFromFile(filename, False);
OleContainer1.Run;
OleContainer1.DoVerb(OleContainer1.PrimaryVerb);
weboledocument:=OleContainer1.OleObject.application;
wdAllowOnlyReading:=1;
try
weboledocument.application.ActiveDocument.protect(Password:='', NoReset:=False, Type:=wdAllowOnlyReading);
except
showmessage('文档已经处于保护状态。');
end;
except
;
end;
end;

Word Viewer 2003：
http://www.microsoft.com/downloads/details.aspx?familyid=95E24C87-8732-48D5-8689-AB826E7B8FDF&displaylang=zh-cn

接受答案了.