Club Builder

[Cerúleo]

Hola.

Lo pregunté hace tiempo y no obtuve respuesta, y ahora quiero retomarlo de nuevo.
Lo que pretendo es insertar imégenes en un documento que voy creando poco a poco. Escribo algo de texto, inserto una imagen, escribo más texto, inserto otra imagen, y así sucesivamente. Creo que hay que utilizar los objetos TShape del Word, pero no tengo claro cómo. Tampoco sé cómo se hace para referenciar la imagen respecto al párrafo, márgenes, etc. ¿Alguien ha hecho algo parecido?

Un saludo a todos.
_________________
Nunca digas "Es imposible" sin intentarlo antes.

[Cerúleo]

Hola otra vez.
Siguo aquí, esperando alguna ayuda. ¿Nadie ha hecho o necesitado hacer algo parecido antes?
Un saludo.
_________________
Nunca digas "Es imposible" sin intentarlo antes.

[josecarlos]

Mira lo puedes hacer pegando la imagen al clipboard y despues hacer el pegado a word desde este el problema que tengo es con las imagenes jpeg ya que solo se pueden pegar imágenes bmp solo hay que identificar cuando es un formato válido y si no convertir las imágenes. El código es el siguiente:

Variant Word, Document, Selection;

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);

Clipboard()->Assign(Image1->Picture->Bitmap);//Aquí es lo bueno
Selection.OleProcedure("Paste");
Clipboard()->Clear();
_________________
Robar las ideas de una persona es plagio; robarlas de muchas es investigación.
Ley de Felson

[josecarlos]

Saludos a todos. Para que podamos insertar en el clipboard es necesario añadir:
#include <Clipbrd.hpp>

con esta forma podemos insertar varias cosas como un grafica realizada con el Tchart
_________________
Robar las ideas de una persona es plagio; robarlas de muchas es investigación.
Ley de Felson

[Cerúleo]

Hola.

Pegándome con el formato de las imágenes y con las p...s macros del Word he averiguado que lo que necesito insertar sonimágnes tipo InLineShape, es decir, las que trata como si fueran texto (un párrafo más), de forma que no es necesario posicionarlas respecto a ninguna página, margen o párrafo.
El problema lo tengo con la función OLE Automation que uso para tratar de insertar la imagen. No me va.

¿Alquien sabe algo de cómo hacerloooooooooooooooooooooooo?

Gracias y feliz 2005.
_________________
Nunca digas "Es imposible" sin intentarlo antes.