Club Builder

[edgar_dh]

Estimado programadores tengo el siguiente problema el cual consiste yo tengo varios documentote Word en lo cuales debo cambiar el texto “___/___/___” por un fecha que tengo almacenada en un tabla de paradox como hago, revise el foro y no encotre el siguiente codigo de Leo:
//////////////////////////////////////////////////////////////
Código:
Variant vWord, vDocumentos, vDocumento, vStoryRanges, vBuscar, vRango;
String sPath = ExtractFilePath(Application->ExeName);

String sFicheroPlantilla = sPath + "plantilla.doc";
String sFicheroGenerado = sPath + "plantilla2.doc";

//--- 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.c_str(), // Documento
false, // Confirmar conversiones
true, // Modo se solo lectura
false, // Añadir al menu de ficheros recientes
"" // Clave del documento
);

const int maxStory = 2;
int story[maxStory] = { 1 /*wdMainTextStory*/,
5 /*wdTextFrameStory*/ };
for (int i=0; i<maxStory; ++i)
{
vStoryRanges = vDocumento.OlePropertyGet("StoryRanges");
try
{
vRango = vStoryRanges.OleFunction("Item", story[i]);
}
catch (EOleSysError& e)
{
continue;
}

do
{
vBuscar = vRango.OlePropertyGet("Find");
vBuscar.OleProcedure("ClearFormatting");
vBuscar.OlePropertyGet("Replacement")
.OleProcedure("ClearFormatting");

//--- sustituimos una palabra
// Aqui podemos meter el bucle que va a ir reemplanzando palabras
vBuscar.Exec(Procedure("Execute")
<< "{{nombre}}" // Texto a buscar
<< VT_EMPTY // Coincidir mayusculas y minusculas
<< VT_EMPTY // Solo palabras completas
<< VT_EMPTY // Usar caracteres comodin
<< VT_EMPTY // Suena como
<< VT_EMPTY // Todas las formas de la palabra
<< true // Hacia adelante
<< VT_EMPTY // Wrap
<< VT_EMPTY // Format
<< Edit1->Text.c_str() // Reemplazar con...
<< 2 // 2 = reemplazar todo
);

//--- sustituimos otra palabra
vBuscar.Exec(Procedure("Execute") << "{{direccion}}"
<< VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY << VT_EMPTY
<< true << VT_EMPTY << VT_EMPTY << Edit1->Text.c_str() << 2);

vRango = vRango.OlePropertyGet("NextStoryRange");
} while(static_cast<IDispatch*>(vRango));
} // for i

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

ShowMessage("Documento generado.");
}

vWord = vDocumentos = vDocumento = vStoryRanges = vBuscar = vRango = Unassigned;
---------------------------------------------------------------------------
El cual tratando usar C++ Builder 4 me da problemas con “if (checkGuardar->Checked)” asi que no he podido corregirlo

Esperando si alguie me puede ayudar

[Buildero]

Estimado edgar_dh...

[edgar_dh]

Gracias por tu Pronta ayuda a hora cuando se ejecuta la aplicación se genera el siguiente error:

Raise exception Class EOleSysError with message’Ocurrio una excepcion‘

Si me puedes ayudar te lo agradezco

[Buildero]

Creo que hay una diferencia con el código que yo tengo (pero el autor es _Leo).

[Kurroman]

El "ocurrio una excepcion" suena a k no enkuentre el fichero plantilla o la ruta donde guardarlo/cargarlo. A mi es el fallo tipiko k me pasa kuando automatizo word

[edgar_dh]

Buenos Días Gracias por la ayuda, estos momento ya se puede compilar pero al dar el clic al botón sale el siguiente caja de mensaje:

_Asserte:

Isbouns @ d:\bcb\emuvcl\utilcls.h/2410
Pres[Y]es to terminate, [N] o to continue and [C]ancel to debug

Con cualquier de las opciones que se presiones se genera una excepción y se cierra la aplicación ( Por otro lado tengo Win 2000, Office 2003 y C++ builder 4)

Si me puede ayudar se lo agradezco

[edgar_dh]

Por favor algún programador me pueden enviar por favor un proyecto de builder con los archivo de Word para ver como se realiza el reemplazo y ver cual es mi error dando que tengo una semana en esto y me esta afectando en no poder hacer dicho reemplazo

Edgar_dh@hotmail.com o Edgar_dh@yahoo.com

[Miguel Angel Torres]

Alguien podría colgar algún ejemplito para ver como es el uso, ya que yo también he tenido problemas y no los he podido solucionar.Gracias...
_________________
Entre más sé, sé que nada sé
----------------------------------
Miguel Angel Torres Arredondo
Siegen - Deutschland

[_Leo]

[Miguel Angel Torres]

gracias por tu ayuda, suerte...
_________________
Entre más sé, sé que nada sé
----------------------------------
Miguel Angel Torres Arredondo
Siegen - Deutschland

[Miguel Angel Torres]

_Leo quería preguntarte como se podría añadir una linea/s en código que implementaste para que imprimiera el archivo que generas en tu programa. Gracias por tu ayuda. Suerte....
_________________
Entre más sé, sé que nada sé
----------------------------------
Miguel Angel Torres Arredondo
Siegen - Deutschland

[_Leo]

Puedes añadir una de las siguientes líneas antes de la parte donde se guarda el documento:

    vDocumento.OleProcedure("PrintOut");

o

    vDocumento.Exec(Procedure("PrintOut"));

[Miguel Angel Torres]

gracias por todo, yo estaba intentando este código:

[_Leo]

Si usas el enlace de buscar del foro y pones por ejemplo "word AND ayuda" encontraras mas detalles sobre esto.

https://cppbuilder.es/viewtopic.php?t=4785
https://cppbuilder.es/viewtopic.php?t=6922
https://cppbuilder.es/viewtopic.php?t=8271
https://cppbuilder.es/viewtopic.php?t=10365
https://cppbuilder.es/viewtopic.php?t=10584

[Miguel Angel Torres]

ya estuve revisando y en el editor de visual basic en word encontré muchísima información con respecto a esto, de todas formas muchas gracias por tu ayuda _Leo, se te agradece, suerte...
_________________
Entre más sé, sé que nada sé
----------------------------------
Miguel Angel Torres Arredondo
Siegen - Deutschland