Гой-еси, дражайший чел Nikolay Panfilov.
NP> А вот еще вопрос. Как в ворд вставить екселевскую таблицу? Hе в
виде ссылки а в
NP> качестве OLE объекта?
Так:
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Variant Word, Document, Selection, InlineShapes;
Word = CreateOleObject("Word.Application.8");
Word.OlePropertySet("Visible", true);
Word.OlePropertyGet("Documents").OleProcedure("Add");
Document = Word.OlePropertyGet("Documents").OleFunction("Item", 1);
//просто перегнать в таблицу Word
/* Selection = Document.OleFunction("Range", 0, 0);
Selection.OleProcedure("InsertFile", ChangeFileExt(Application-
>ExeName, ".xls"), "A1:D6", false, false);*/
//или ОЛЕ-ОЛЕ-ОЛЕ-ОЛЕ!!!
InlineShapes = Document.OlePropertyGet("InlineShapes");
InlineShapes.OleFunction("AddOLEObject", EmptyParam, ChangeFileExt
(Application->ExeName, ".xls"), false, false, EmptyParam, EmptyParam,
Document.OleFunction("Range", 0, 0));
Document.OleProcedure("SaveAs", ChangeFileExt(Application-
>ExeName, ".doc"));
Word.OleProcedure("Quit");
}
--
Dmitriy Mochenov
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
|