望高手赐教:如果用Richedit做编辑器,具体怎样用OLE来打开word文档?OLE怎么用啊?

Question

var  MsWord:olevariant;
 begin try
        MsWord:=CreateOleObject('Word.Application');
        MsWord.Visible:=true;
 except
        showmessage('打不开'）；
        exit;
  end;
 end;

Answer 1

加上，UESE COMOBJ
msword.visible:=true//要否在后台运行

Answer 2

首先澄清一点RichEdit是无法显示Word格式的文档的，只能用OLE控件，
下面是我的程序，可能对你有帮助。其中的Olecontainer_Contract_DOC
就是OLE控件。
procedure TForm_Contract_Show.Button_ReadClick(Sender: TObject);
var S_FileName:string;
begin
  OpenDialog1.Execute;
  S_FileName:=OpenDialog1.FileName;
  OleContainer_Contract_DOC.CreateObjectFromFile(S_FileName,False);
  OleContainer_Contract_DOC.Run;
end;