如何在delphi中嵌入並打開WORD，依賴於在網上添加OleContainer控件，但不知道如何在這個控件中寫代碼打開文檔。

.....

程序TForm1。Button1Click(發件人:to object)；

定義變量

fnm:字符串；

WordApp，word doc:Variant；

sContext:字符串；

開始

如果OpenDialog1。執行然後開始

fnm := OpenDialog1。文件名；

標簽2。標題:= fnm

WordApp := CreateOleObject('Word。應用’)；

嘗試

WordApp。可見:=假；

WordDoc := WordApp。文檔.打開(fnm)；

WordApp。選擇。整個故事；

sContext := WordDoc。範圍。文本；

RichEdit1。text:= sContext；

最後

WordApp。退出；

結束；

結束；

結束；