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");
импорт данных в ворд и ексель.
Подскажите как с помощью каких либо компонентов с закладки office 2k импортировать данные из проги в вордовский и екселевский документ.
А обязательно с помощью office 2k?
Цитата: SUndu4ek
Подскажите как с помощью каких либо компонентов с закладки office 2k импортировать данные из проги в вордовский и екселевский документ.
См. FAQ's http://forum.codenet.ru/showthread.php?t=26390
8. Как ускорить вывод/загрузку данных в/из Excel?
Господа ! В открытый Word документ(tmp.doc) нужно вставить сохранённый рисунок(TMP_1.bmp). Кто сможет продолжить.(В доступных книгах почемуто не нашел:
[сode]
void __fastcall TForm1::Button3Click(TObject *Sender)
{ AnsiString CurrentDir = GetCurrentDir();
WordApplication1->set_Visible(true);
TVariant FileName =CurrentDir+"\\tmp.doc";
WordApplication1->Documents->Open( &FileName);
WordApplication1->Activate(); WordApplication1->ActiveDocument-> Range(EmptyParam,EmptyParam)-> InsertAfter( StringToOleStr("123 asdfg ASDFG '\n\n"));
Chart1->SaveToBitmapFile("TMP_1.bmp");
WordApplication1->ActiveDocument->InlineShapes-> AddPicture(........
[/сode].
[сode]
void __fastcall TForm1::Button3Click(TObject *Sender)
{ AnsiString CurrentDir = GetCurrentDir();
WordApplication1->set_Visible(true);
TVariant FileName =CurrentDir+"\\tmp.doc";
WordApplication1->Documents->Open( &FileName);
WordApplication1->Activate(); WordApplication1->ActiveDocument-> Range(EmptyParam,EmptyParam)-> InsertAfter( StringToOleStr("123 asdfg ASDFG '\n\n"));
Chart1->SaveToBitmapFile("TMP_1.bmp");
WordApplication1->ActiveDocument->InlineShapes-> AddPicture(........
[/сode].
Цитата: mochanov
Господа ! В открытый Word документ(tmp.doc) нужно вставить сохранённый рисунок(TMP_1.bmp)
Код:
Цитата: mochanov
Господа ! В открытый Word документ(tmp.doc) нужно вставить сохранённый рисунок(TMP_1.bmp). Кто сможет продолжить.(В доступных книгах почемуто не нашел:
на всякий случай - аналогичный вариант в Word.Basic
Код:
W.Exec(Procedure("InsertPicture") << CurrentDir + "\\TMP_1.bmp");