ole打开word？

[aonesky]

如何在form里打开word？当然，word要嵌在form里。最好是给个例子。
[e-mail]小女子不胜感激！

[things]

放置控件TOleContainer( System面板下)

button1.click

begin
if OpenDialog1.Execute then
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, False);
end;

[tjff2000]

procedure TForm1.Button1Click(Sender: TObject);
var w:variant;
begin
if opendialog1.execute then
begin
w:=createoleobject('word.application');
w.documents.open(opendialog1.filename);
w.visible:=true;
end;
end;放置一opendialog控件和一按钮控件即可。

[wangguan007]

关注！！

[wwwwwwww]

到以前的贴子里去搜索！

[hui2003]

function OpenWordDocument(const AFileName: String; //uses Comobj
AControl: TCustomMemo): Boolean;
var
NewDoc: Variant;
V: OleVariant;
begin
try
try
V := CreateOleObject('Word.Application');//建立自动化对象
NewDoc :=V.Documents.Open(AFileName); //打开指定文件
NewDoc.Content.Copy; //拷贝到剪贴板
AControl.Lines.Clear;
AControl.PasteFromClipboard; //粘贴
NewDoc.Close; //关闭Word文件
finally
V.Quit; //释放自动化对象
end;
Result := True;
except
Result := False;
end;
end;