Variant Word, Document, Selection, InlineShapes;
Graphics::TBitmap* bmp = new Graphics::TBitmap();
Word = CreateOleObject("Word.Application.8");
Word.OlePropertySet("Visible", true);
Word.OlePropertyGet("Documents").OleProcedure("Add");
Document = Word.OlePropertyGet("Documents").OleFunction("Item", 1);
//так
Selection = Document.OleFunction("Range", 0, 0);
bmp->LoadFromFile(ChangeFileExt(Application->ExeName, ".bmp"));
Clipboard()->Assign(bmp);
Selection.OleProcedure("Paste");
Clipboard()->Clear();
delete bmp;
//или так
/*InlineShapes = Document.OlePropertyGet("InlineShapes");
InlineShapes.OleFunction("AddOLEObject", EmptyParam, ChangeFileExt(Application->ExeName, ".bmp"), false, false, EmptyParam, EmptyParam, Document.OleFunction("Range", 0, 0));*/
Document.OleProcedure("SaveAs", ChangeFileExt(Application->ExeName, ".doc"));
Word.OleProcedure("Quit");
работа с Word'ом
Подскажите плз, как скопировать картинку из одного документа Word в другой, причем эти картинки, в документах, находятся в таблицах.
[COLOR=blue]
Cell* Ceil=Table->Cell(1,1);
Cell* Ceil2=Table2->Cell(1,1);
Ceil->Range->InsertAfter(Ceil2-> [COLOR=green]а вот функции, которая возвращала бы картинку, нет...
[/COLOR] );
[/COLOR]
Как быть??
заранее спасибо!
[COLOR=blue]
Cell* Ceil=Table->Cell(1,1);
Cell* Ceil2=Table2->Cell(1,1);
Ceil->Range->InsertAfter(Ceil2-> [COLOR=green]а вот функции, которая возвращала бы картинку, нет...
[/COLOR] );
[/COLOR]
Как быть??
заранее спасибо!
Цитата:
Originally posted by Nrav
Подскажите плз, как скопировать картинку из одного документа Word в другой, причем эти картинки, в документах, находятся в таблицах.
[COLOR=blue]
Cell* Ceil=Table->Cell(1,1);
Cell* Ceil2=Table2->Cell(1,1);
Ceil->Range->InsertAfter(Ceil2-> [COLOR=green]а вот функции, которая возвращала бы картинку, нет...
[/COLOR] );
[/COLOR]
Как быть??
заранее спасибо!
Подскажите плз, как скопировать картинку из одного документа Word в другой, причем эти картинки, в документах, находятся в таблицах.
[COLOR=blue]
Cell* Ceil=Table->Cell(1,1);
Cell* Ceil2=Table2->Cell(1,1);
Ceil->Range->InsertAfter(Ceil2-> [COLOR=green]а вот функции, которая возвращала бы картинку, нет...
[/COLOR] );
[/COLOR]
Как быть??
заранее спасибо!
Код:
доработаешь сам...
[SIZE=3]это не подходит. Мне нужно копировать картинку из ячейки в другой таблице Word, а не из файла. я даже не знаю какое у нее расширение... [/SIZE]