zidfrid
12-08-2007, 23:52:46
Hola de nuevo amigos del foro.
a ver muchachos, tengo un pequeño problema, resulta que estoy desarrollando una sencilla aplicación que genere un documento de word, esto lo he logrado tomando ideas de aqui y de aya, en fin, el hecho es que ahora deseo insertarle una imagen o bitmap de una manera sencilla y no se como, aquí anexo el código para quienes les interese.
OleVariant Template = EmptyParam;
OleVariant NewTemplate = False;
OleVariant ItemIndex = 1;
WordApplication1->Connect();
WordApplication1->GetDefaultInterface()->Visible = True;
WordApplication1->Documents->Add(Template, NewTemplate);
WordDocument1->ConnectTo(WordApplication1->Documents->Item(ItemIndex));
WordApplication1->Options->CheckSpellingAsYouType = False;
WordApplication1->Options->CheckGrammarAsYouType = False;
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("hola\n"));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("amigos\n"));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("del club\n"));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr(" :) "));
}
de antemano muchas gracias a todos aquellos que se tomen la molestia de leer mi inquietud.:)
a ver muchachos, tengo un pequeño problema, resulta que estoy desarrollando una sencilla aplicación que genere un documento de word, esto lo he logrado tomando ideas de aqui y de aya, en fin, el hecho es que ahora deseo insertarle una imagen o bitmap de una manera sencilla y no se como, aquí anexo el código para quienes les interese.
OleVariant Template = EmptyParam;
OleVariant NewTemplate = False;
OleVariant ItemIndex = 1;
WordApplication1->Connect();
WordApplication1->GetDefaultInterface()->Visible = True;
WordApplication1->Documents->Add(Template, NewTemplate);
WordDocument1->ConnectTo(WordApplication1->Documents->Item(ItemIndex));
WordApplication1->Options->CheckSpellingAsYouType = False;
WordApplication1->Options->CheckGrammarAsYouType = False;
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("hola\n"));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("amigos\n"));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("del club\n"));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr(" :) "));
}
de antemano muchas gracias a todos aquellos que se tomen la molestia de leer mi inquietud.:)