Club Builder

[sisabb]

Alguien sabe porque si se inserta un marcador dentro de un cuadro de texto en Word no se puede acceder a el con el GOTO.

¿Como se puede acceder a insertar texto en un cuadro de texto?

[_Leo]

Quizás porque haya que seleccionar antes el cuadro, al menos así se genera el código al capturar una macro, y aunque se podria hacer, he encontrado un metodo alternativo mas sencillo.

Aquí va un ejemplo sin usar GOTO, en las pruebas que he hecho funciona bien tanto si las marcas están en cuadros de texto como si no, espero que te sirva (he usado un archivo llamado "plantilla.doc" con dos marcas: "nombre" y "direccion"):

[sisabb]

Muchas gracias Leo, como lo que queria copiar era texto enriquecido, lo he efectuado con el siguiente código, apoyandome en el que tu me has pasado.

-------------------------------------------------

Variant vDocCopy, Bookmarks, vSeleccionCopy;



vDocCopy = vDocumentos.OleFunction("Open", lPL_Evolu_Peti_PETIC.c_str(), false, false, false, "" );
Bookmarks = vDocCopy.OlePropertyGet("Bookmarks");
vSeleccionCopy = vWord.OlePropertyGet("Selection");

// Cargamos las observaciones
lValor = Query1->Field("OBSERVACIONES");
TMemoryStream* pms = new TMemoryStream();
pms->Clear();
pms->Write(lValor.c_str(), strlen(lValor.c_str()));
pms->Position=0;
Form1->RichEdit1->Lines->LoadFromStream(pms);
Form1->RichEdit1->SelectAll();
//copiar al portapapeles
Form1->RichEdit1->CopyToClipboard();
if (Bookmarks.OleFunction("Exists", mark = "OBSERVACIONES"))
{
Bookmarks.OleFunction("Item", mark).OleProcedure("Select");
//insertamos el texto del portapapeles
vSeleccionCopy.OleProcedure( "Paste");
}
delete pms;
------------------------------------------------------------------

Solo te podemos pagar con el reconocimiento a tu teson y conocimientos.
Gracias.

[_Leo]