Здравствуйте Vi2, Вы писали:

Vi2>Здравствуйте Boris_R, Вы писали:

BR>>Проблема возникла при смене МСОфиса на 2000. OLEAutomation работать перестала
Vi2>Наверное, поменялись версии некоторых используемых классов. Может быть, и интерфейсов тоже. Например,
BR>>WordDocument.InlineShapes.AddOLEObject(ClassType:='Excel.Sheet.8', ...
Vi2>Excel.Sheet.8 стало Excel.Sheet.9. Лучше использовать просто Excel.Sheet.
BR>>FileName:='c:\temp\tab13.xls', ...
Vi2>А, может, поскольку файл старой версии, то и в нём может быть причина.

Спасибо за ответ, я уже сделал: все работает если сделать не так как я писал, а так:
ClassType:='Excel.Sheet.8'; FileName:='c:\temp\tab13.xls'; Linktofile:=False; DisplayAsIcon:=False;
Form17.WordApplication.Selection.InlineShapes.AddOLEObject(ClassType, FileName, Linktofile, DisplayAsIcon, EmptyParam, EmptyParam, EmptyParam, EmptyParam);