Club Builder

[_Leo]

Esta función permite sustituir texto dentro de un documento de Word. La ventaja es que usamos enlace tardío, con lo que no tenemos que complicarnos instalando componentes ni librerías.

Seria útil por ejemplo para crear reportes sencillos usando Word. Por ejemplo, podemos sustituir "{{nombre}}" por "Pepito de los palotes". Además se mantiene el formato que le hayamos dado al texto que vamos a sustituir.

Lo primero es añadir el siguiente código al comienzo de nuestro modulo:

[Invitado]

Por si alguien quiere probarlo puede bajarse un proyecto de ejemplo en BCB1 o BCB6

[Ricardo]

Hola Leo, tenía una dudilla sobre esto que haces, y que pienso puede ser interesante para los 2.

Yo estoy haciendo algo parecido, pero intento seleccionar la palabra a sustituir en el word (p.ej "direccion") como un bookmark, con lo cual me ahorro la rútina de busqueda en el texto, ya el word se desplaza directamente hasta este punto y hacer la sustitución, es tal como la haces tú. El problema que tengo es que cuando uso los bookmarks, no me encuentra ninguno en el documento.

Este es el código que yo utilizo:

OleVariant What, Which, Count, Name ;

What = wdGoToBookmark;

Which =EmptyParam;

Count = EmptyParam;

Name= "direccion"; //nombre del bookmark en el documento de word. En castellano sería Insertar/marcador

WordApplication1->Selection->GoTo(What, Which, Count, Name); //desplaza el cursor y selecciona el marcador

WordApplication1->Selection->TypeText(Edit1->Text); //sustituye el texto

Pero el problema es que siempre me hace la inserción al principio del documento, pq no encuentra el bookmark. Alguna idea???
Gracias.

Ricardo

[tony]

HOLA

LEO A MI ME DA UN ERROR DE TAutoArgs

GRACIAS

[Invitado]

Tony, prueba a añadir '#include <utilcls.h>' que es donde esta declarado 'TAutoArgs', aunque a mi me funciona sin ponerlo, tanto en el BCB1 como en el BCB6.Ricardo, aquí tienes el ejemplo modificado para que funcione con "marcas/marcadores":

[Ricardo]

Vale Leo, muchas gracias, eres un monstruo. Esta tarde lo pruebo, y espero hacerlo funcionar ya de una vez, porque llevo tantas cosillas probadas...

Lo peor, ya por reto personal, es no saber que es lo que estaba haciendo mal

Gracias

Ricardo

[tony]

leo muchas gracias lo probare y perdona por a verlo preguntado tantas veces

gracias

[tony]

leo muchas gracias lo probare y perdona por a verlo preguntado tantas veces

gracias

[Ricardo]

Oye Leo, una nueva duda al respecto, consigo poner la visualización preliminar y cerrar el documento sin guardarlo, pero la cosa es como puedo "parar" la ejecución del programa hasta que o mande a imprimir el documento, o haga modificaciones?

supongo que será algo así como

while "no cerrado documento de word"
{wait
}

pero no me parece muy eficiente, hay alguna manera mejor de esperar la respuesta del word??
Gracias!!!

[jotny]

[Kurroman]

Pues me funciona bien el tema de los marcadores, pero al final de lo que sustituye me sale una especie de cuadradito, esto sabeis porque pasa?

[SumSum]

Con las nuevas versiones de C++Builder el código que funcionaba en BCB6 ya no funciona porque se hace necesario cambiar a WideString.

Leo ha adaptado el código y funciona en cualquier versión de C++Builder

Aquí os lo pego... (Gracias Leo)


//Añadimos: #include <ComObj>

WideString sPath = ExtractFilePath(Application->ExeName);
WideString sFicheroPlantilla = sPath + "plantilla.docx";
WideString sFicheroGenerado = sPath + "plantilla2.docx";

Variant vWord, vDocumentos, vDocumento, vContenido, vBuscar;
const int wdFindContinue = 1, wdReplaceOne = 1, wdReplaceAll = 2;

//--- Abre Word
vWord = CreateOleObject("Word.Application");
vWord.OlePropertySet("Visible", !checkGuardar->Checked);

//--- Abre el documento que usaremos como plantilla
vDocumentos = vWord.OlePropertyGet("Documents");
vDocumento = vDocumentos.OleFunction("Open",
sFicheroPlantilla, // Documento
false, // Confirmar conversiones
true, // Modo de solo lectura
false, // Añadir al menu de ficheros recientes
WideString("") // Clave del documento
);

//--- Selecciona todo el documento para reemplazar
vContenido = vDocumento.OlePropertyGet("Content");
vBuscar = vContenido.OlePropertyGet("Find");
vBuscar.OleProcedure("ClearFormatting");

//--- sustituimos una palabra
// Aqui podemos meter el bucle que va a ir reemplanzando palabras
vBuscar.OleProcedure("Execute",
WideString("{{nombre}}"), // Texto a buscar
false, // Coincidir mayusculas y minusculas
false, // Solo palabras completas
false, // Usar caracteres comodin
false, // Suena como
false, // Todas las formas de la palabra
true, // Hacia adelante
wdFindContinue, // Wrap
false, // Format
WideString(Edit1->Text), // Reemplazar con...
wdReplaceAll // wdReplaceAll / wdReplaceOne
);

//--- sustituimos otra palabra
vBuscar.OleProcedure("Execute", WideString("{{direccion}}"),
false, false, false, false, false, true, wdFindContinue,
false, WideString(Edit2->Text), wdReplaceAll);

//--- salvamos automaticamente si procede y cerramos Word
if (checkGuardar->Checked)
{
vDocumento.OleProcedure("SaveAs", sFicheroGenerado);
vDocumento.OleProcedure("Close", 0xFFFFFFFF);
vWord.OleProcedure("Quit");
ShowMessage("Documento generado.");
}

vWord = vDocumentos = vDocumento = vContenido = vBuscar = Unassigned();
_________________
Asun