Delphi2006中怎么调用WORD并打开？如何把数据插入到word中相应文本框中去。
1.d2006中怎么调用word并打开？比如我新建了一个word文档，目录为c:\33.doc,2006中怎么调用打开这个word文档。
2.怎么把数据插入到word中相应文本框中去。

[解决办法]
连接word
Var
ItemIndex :OleVariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
template,newtemplate:OleVariant;
begin
//WordFont1.ConnectTo(WordDocument1.Sentences.Last.Font);

WordApplication1.Create(WordDocument1);
template:=EmptyParam;
newtemplate:=true;
itemindex:=1;
WordApplication1.Connect;
WordApplication1.Visible:=true;
WordApplication1.Caption:='nihao';
WordApplication1.Options.CheckSpellingAsYouType:=false;
WordApplication1.Options.CheckGrammarAsYouType:=false;
FileName:='c:\33.doc';
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;
//打开文档（模板）
WordApplication1.Documents.OpenOld( FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format );

ItemIndex := 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));

向word里写入数据
//WordDocument1.PageSetup.Orientation := wdOrientLandscape;//横向
//WordDocument1.Tables.Item(1).Cell(2,1).Range.Text:='11111'
//WordDocument1.Tables.Add(WordDocument1.Words.Last,33,6,EmptyParam,EmptyParam);
WordDocument1.Tables.Item(1).Cell(1,3).Range.Text := Edit2.Text;
WordDocument1.Tables.Item(1).Cell(1,5).Range.Text := combobox1.Text;
WordDocument1.Tables.Item(1).Cell(2,3).Range.Text := Edit3.Text;
WordDocument1.Tables.Item(1).Cell(3,3).Range.Text := Edit4.Text;
WordDocument1.Tables.Item(1).Cell(3,5).Range.Text := Edit5.Text;


断开
try
WordApplication1.Quit();
WordApplication1.Disconnect;

Except
on e:Exception do
begin
ShowMessage(e.Message);
WordApplication1.Disconnect;
end;
[解决办法]
up