delphi控制word的问题(200分)

procedure TForm1.Button2Click(Sender: TObject);
var

sFileName:String;
dlg:TOpenDialog;
vWord:Variant;
begin
try
vWord:=CreateOleObject('Word.Application');
ibWordCreate:=true;
except
on E:Exception do begin
E.Message:='无法连接Word服务器，请检查Office是否安装。';
exit;
end;
end;
try
dlg:=TOpenDialog.Create(nil);
try
dlg.Filter:='WORD文档(*.doc)|*.doc';
dlg.Title:='请选择一个WORD文档' ;
if not dlg.Execute then exit;
vWord.Documents.OpenOld(dlg.FileName,false,true,false,'','',true,'','',wdOpenFormatDocument);
vWord.CustomizationContext:=WordApplication1.ActiveDocument.CustomDocumentProperties;
//上句执行错误：提示CustomizationContext不是可以引用的属性
vWord.FindKey[vWord.BuildKeyCode(78,512)].Disable;
//错误问题：如果忽略vWord.CustomizationContext这句话，想直接使快捷键Ctrl+N失效、
//它自动设置的默认模板的快捷键而不是当前活动文档的快捷键，感觉没有起作用
vWord.Visible:=true;
finally
dlg.Free;
end;

except
on E:Exception do begin
MessageBox(Handle,PChar('打开<'+sFileName+'>失败。'+#10+E.Message),PChar(IntToStr(iNum)+'错误'),48);
exit;
end;
end;
end;


//哪位大侠能告诉我怎么回事、我主要是想控制word、使word的快捷键失效，只想用户可以看文档不允许执行任何操作

不会，只能帮顶了．．．

难道没有兄弟用过这种方法控制word吗？知道的、麻烦指教一二、我在网络搜了2天了、也没有找到解决办法、急死了！

接受答案了.