Club Builder

[jfuentevilla]

Form27->OleContainer1->CreateObjectFromFile(ruta->FileName.c_str(), false);
Form27->OleContainer1->DoVerb(0);
Variant vDocumento = Form27->OleContainer1->OleObject;
Variant vWord = vDocumento.OlePropertyGet("Application");
Variant vSeleccion = vWord.OlePropertyGet("Selection");
vSeleccion.OlePropertyGet("Range").OleProcedure("SetRange", 0, 0);
Variant vBuscar = vSeleccion.OlePropertyGet("Find");
vBuscar.OleProcedure("ClearFormatting");
vBuscar.OlePropertyGet("Replacement").OleProcedure("ClearFormatting");


vBuscar.Exec( Procedure( "Execute" )<< AnsiString("{{numpedido}}")<< VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY
<< true << VT_EMPTY << VT_EMPTY << AnsiString(Codigo_PM->Text) << 2);

vBuscar.Exec( Procedure( "Execute" )<< AnsiString("{{fecha}}")<< VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY
<< true << VT_EMPTY << VT_EMPTY << AnsiString(FormatDateTime("dd/mm/yyyy",DateTimePicker1->Date)) << 2);

*************error en esta parte*************
//SISTITUIR MEMO
vSeleccion.OleProcedure( "Goto", -1, VT_EMPTY, VT_EMPTY, AnsiString("servicios") );
vSeleccion.OleProcedure( "TypeText", AnsiString(Texto_PedidoServicios->Text) );

Envía Error : "Tipo de variable Incorrecto"
Utilizo C++ Builder XE5

[_Leo]

Prueba con "WideString" en lugar de "AnsiString".

[jfuentevilla]

Gracias Leo.

Ahora me aparece el sgte. problema
vSeleccion.OleProcedure( "Goto", -1, VT_EMPTY, VT_EMPTY, WideString("servicios") );
vSeleccion.OleProcedure( "Goto", -1, VT_EMPTY, VT_EMPTY, WideString("{{servicios}}") );
Mensaje: "No existe este Marcador"

al dejar solo;
vSeleccion.OleProcedure( "TypeText", WideString(Texto_PedidoServicios->Text) );
Me copia el texto al comienzo del documento dot

[_Leo]

¿Te has asegurado de que realmente exista ese marcador en el documento?

[jfuentevilla]

Faltaba crear el MARCADOR.

Gracias Leo.