Club Builder

[Eduardo]

En una forma hija tengo un OleContainer donde abro un archivo word,
de la sgte forma;

TForm2 *Form2=new TForm2(this);
Form2->OleContainer1->CreateObjectFromFile("c:\\Vehiculos Pesados\\SOLICITUD DE TRASLADO.doc",false);

pero ahora deseo abrir ese mismo archivo word pero cargando datos;

//--- Selecciona todo el documento para reemplazar
vSeleccion = vWord.OlePropertyGet( "Selection" );
vSeleccion.OlePropertyGet( "Range" ).OleProcedure( "SetRange", 0, 0 );
vBuscar = vSeleccion.OlePropertyGet( "Find" );
vBuscar.OleProcedure( "ClearFormatting" );
vBuscar.OlePropertyGet( "Replacement" ).OleProcedure( "ClearFormatting" );


vBuscar.Exec( Procedure( "Execute" )<< "{{NOMBRE}}"<< VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY
<< true << VT_EMPTY << VT_EMPTY << Edit1->Text << 2);



vWord.OlePropertySet( "Visible",true);
vWord = vDocumentos = vDocumento = vSeleccion = vBuscar = Unassigned;

}


Pero no me resulta, alguna idea...

[Eduardo]

Cualquier idea es bienvenida

[Eduardo]

Cualquier idea es bienvenida

[Eduardo]

....

[Eduardo]

...

[yo mismo]

Variant vWord, vDocumentos, vDocumento, vSeleccion, vBuscar;
String sPath = ExtractFilePath( Application->ExeName );
//--- Abre Word
vWord = CreateOleObject( "Word.Application" );

OleContainer1->CreateObjectFromFile("c:\\Vehiculos Pesados\\SOLICITUD DE TRASLADO.doc", False);
OleContainer1->DoVerb(0);



//--- Selecciona todo el documento para reemplazar
vSeleccion = vWord.OlePropertyGet( "Selection" );
vSeleccion.OlePropertyGet( "Range" ).OleProcedure( "SetRange", 0, 0 );
vBuscar = vSeleccion.OlePropertyGet( "Find" );
vBuscar.OleProcedure( "ClearFormatting" );
vBuscar.OlePropertyGet( "Replacement" ).OleProcedure( "ClearFormatting" );


vBuscar.Exec( Procedure( "Execute" )<< "{{NOMBRE}}"<< VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY
<< true << VT_EMPTY << VT_EMPTY << Edit1->Text.c_str() << 2);


vWord = vDocumentos = vDocumento = vSeleccion = vBuscar = Unassigned;

[yo mismo]

Al ejecutar la intruccion descrita arriba
//--- Abre Word
vWord = CreateOleObject( "Word.Application" );
abre el word sin ningun documento fuera del OleContainer
y tambien abre la plantilla dentro del OleContainer con el dato que ingreso.

que estoy haciendo mal

[Yo Mismo]

Pero no me resulta, alguna idea...

[risu]

Mira en la sección TIPS & TRICKS (https://cppbuilder.es/viewtopic.php?t=3688) tienes un tema que es abrir word desde un formulario o algo así donde conseguirás lo que buscas.

Un saludo.

[yo mismo]

Yo quiero que la plantilla donde sustitullo texto aparesca dentro de un
OleContainer, no como el ejemplo que tu me das, que abre el word en forma independiente.

[yo mismo]

Un poco de ayuda porfa

[_Leo]

No seas tan impaciente, entre un mensaje y otro apenas has dejado pasar tiempo. Cuando veas que no te responden no te limites a repetir lo mismo, es mejor que añadas más datos de lo que quieres conseguir, ya que es posible que no te hayan entendido.

Has puesto código mezclado que no tiene nada que ver el uno con el otro, por lo que supongo que lo que quieres es "comunicarlo" de alguna manera. Aquí va un pequeño ejemplo por si te da una pista:

// Abrimos un documento usando el TOleContainer
OleContainer1->CreateObjectFromFile("c:\\prueba.doc", false);
OleContainer1->DoVerb(0);

// Y aquí una forma de comunicarnos con el objeto cargado
Variant documento = OleContainer1->OleObject;

// Añadimos una linea de texto al comienzo del documento
Variant contenido = documento.OlePropertyGet("Content");
contenido.OleProcedure("Insertbefore", "Esto es una prueba\n\n\n");

Espero que te sirva de algo.

[yo mismo]

LEO gracias una vez más por responder.
Pero no se de donde puedo sacar ayuda, o leer sobre el tema o como buscar sobre esto.

Tu me dices como insertar una frase a la plantilla, pero YO nesecito
ingresar una frase en cierto lugar como por ejemplo;
Mi nombre es: {{NOMBRE}}

GRACIAS POR TODO
Eduardo Salinas.

[_Leo]

Solo trataba de mostrarte como comunicar el TOleContainer con el ejemplo donde se muestra como sustituir texto en Word utilizando automatización-OLE, suponiendo que este ya sabias como usarlo.

Bueno, aquí va el código completo adaptando el ejemplo anterior para usarlo con el TOleContainer. Teniendo un documento cargado en el TOleContainer como se muestra mas arriba, añadimos el siguiente código para hacer los cambios de texto:

[YO MISMO]

GRANDE LEO

TE PASASTE, UN MILLON DE GRACIAS