Documentos de word

[zidfrid]

Hola amigos del club, tengo un problemiya con los documentos de word, veran necesito cojer un documento existente y sacarle una copia para despues modificar la copia y almacenarla en una ruta diferente.
yo trabajo con el buielder 6 y no tengo idea alguna de como se manejan estos docs y mucho menos de como modificarlos. de antemano agradesco cualquier colaboracion.

A y a neftali muchas gracias por el consejo y el link.

[[Gabo]]

Hola zidfrid, tal vez esto te pueda ayudar...

Código Delphi [-]
 
// CREO EL WORD
Variant word, doc;
try
{
    word = Variant::GetActiveObject("Word.Application");
    word.OleProcedure("Quit", false);
    word = Variant::CreateObject("Word.Application");
}catch(...){
    word = Variant::CreateObject("Word.Application");
}
word.OlePropertySet( "Visible", (Variant) true );
doc = word.OlePropertyGet("Documents");
// Creo la ruta completa al archivo *.doc
AnsiString archivo;
archivo = "C:\\archivo.doc");
// Si existe el archivo, lo abro.
if (FileExists(archivo))
{
    doc.OleFunction("Open", path, Unassigned, true);
}else{
    MessageBox(this->Handle, "El archivo no existe", "Error" , MB_APPLMODAL | MB_OK | MB_ICONERROR);
word.OleProcedure("Quit");
return;
}
// UNA VEZ ABIERTO ESCRIBO EN ÉL
try
{
  // CREO LOS ENCABEZADOS
  Variant Selection = word.OlePropertyGet("Selection");
  Variant Font = Selection.OlePropertyGet("Font");
  Variant Parrafo = Selection.OlePropertyGet("ParagraphFormat");
  Parrafo.OlePropertySet("Alignment","1");
  Font.OlePropertySet("Name","Monotype Corsiva");
  Font.OlePropertySet("Bold","1");
  Font.OlePropertySet("Size","13");
  Selection.OleProcedure("TypeText", "Hola a todos");
}catch(...){
  MessageBox(this->Handle, "Error al escribir en el archivo", "Error" , MB_APPLMODAL | MB_OK | MB_ICONERROR);
}

[JuanErasmo]

Hola amigos, me arroja error en

doc.OleFunction("Open", path, Unassigned, true);


y cuando le quito parámetros, intenta abrir el word, pero sale un error diciendo
"Invalid parameters"


Alguien puede ayudarme??
Es con C++ Builder!
Gracias