DELPHI也可以了
OleContainer1.CreateObjectFromFile (ExtractFilePath(Application.EXEName) + 'test.doc', False);
OleContainer1.DoVerb (ovInPlaceActivate);
WordApplication1.ConnectTo(IDISPATCH (OleContainer1.OleObject.Application) as WordApplication );
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));//ItemIndex应始终为1。