Modificar Word (.DOC) desde Delphi
 

Hola Compañeros:

He estado leyendo en el foro, para ver la posibilidad de modificar un documento Word desde delphi, y lo que mas se parece a lo que busco es el siguiente hilo:

http://www.clubdelphi.com/foros/showthread.php?t=30762

Pero en ese ejemplo, parten de una plantilla de Word .dot . Yo realmente lo que necesito es que si el fichero no existe, lo cree a partir de la plantilla.dot (esto lo he resuelto gracias al hilo anterior), pero si existe, que me permita modificar los campos, y por mas que lo he intentado, no me deja hacer esto ultimo.

Tambien algien me comento que se puede hacer usando marcadores en lugar de campos, pero no se como se hará eso. ¿Alguien tiene algun ejemplito de como puedo resolver este problema?

Gracias de antemano :)

Puedes buscar información sobre Automatización en Word. en los foros debes encontrar más hilos y si no páginas como esta, la de Deborah Pate, o alguna otra que hay en Codegear/Embarcadero te pueden servir.

En estos casos, nunca está de más indicar cuáles son los intentos que has hecho y cuáles los problemas que has tenido.

Hasta donde yo veo, la asignación de valores a campos DocVariable como los usados en el hilo que refieres, puede hacerse tanto si se trata de un documento creado a partir de una plantilla como si se trata de un documento existente.

El único problema que he observado es que si el campo ya contiene un valor, la sentencia

Código Delphi [-]
Documento.Variables.Add('telefono', '55-00-00-00');

produce un error, porque, tal como se lee en la referencia de Microsoft Word Visual Basic, no puede agregarse una variable que ya existe. Lo que hay que hacer en ese caso, es verificar si ya existe la variable y, de ser así, asignarle un valor directamente.

Aquí pongo un ejemplo de cómo tratar ambos casos:

Código Delphi [-]
var
  Word: Variant;
  Documento: Variant;
  I: Integer;

begin
  (* Creas un objeto Word *)
  Word := CreateOleObject('Word.Application');

  (* Abres el documento *)
  Word.Documents.Open('C:\ruta\al\documento.doc');
  Documento := Word.Documents.Item(1);

  (* Asignas valores a los campos *)
  I := IndexOfName(Documento.Variables, 'nombre');
  if I = 0 then
    Documento.Variables.Add('nombre', 'pepe pérez')
  else
    Documento.Variables.Item(I).Value := 'pepe pérez';

  I := IndexOfName(Documento.Variables, 'telefono');
  if I = 0 then
    Documento.Variables.Add('telefono', '55-00-00-00')
  else
    Documento.Variables.Item(I).Value := '55-00-00-00';

  Documento.Fields.Update;
  Word.Visible := true;
end;

IndexOfName obtiene el índice de la variable indicada en caso de que ya exista o 0 en caso contrario. Está definida así:

Código Delphi [-]
function IndexOfName(Variables: OleVariant; Name: String): Integer;
var
  I: Integer;

begin
  Result := 0;

  for I := 1 to Variables.Count do
    if Variables.Item(I).Name = Name then
    begin
      Result := I;
      break;
    end;
end;

El código no es óptimo porque tienes que recorrer toda la lista de variables por cada variable, pero sirve para que te des una idea de lo que hay que hacer.

// Saludos

Hola de nuevo.

Gracias pos las respuestas que me habeis enviado. Basandome el la respuesta de Roman (Gracias, eres un crack;)), he conseguido que me funcione, y ya me modifica las variables. Os dejo aqui el codigo.

Como veras, he quitado la funcion, pero me he quedado con el bucle y le he metido un case para distinguir las variables.

Código Delphi [-]
If FileExists (Fich) Then
 begin
   documento:=Word.Documents.Open(Fich);
   for I := 1 to Documento.Variables.Count do
   begin
    NomVar:=Documento.Variables.Item(I).Name;
    Case NomVar[1] of
     'N': documento.Variables.Item(I).Value:= DM.ADODataSet4Nombre.AsString+
                                   ' '+ DM.ADODataSet4Apellido1.AsString+' '+
                                   DM.ADODataSet4Apellido2.AsString;
     'D': documento.Variables.Item(I).Value:= DM.ADODataSet4Direccion.AsString;
     'L': documento.Variables.Item(I).Value:= DM.ADODataSet4Localidad.AsString;
     'P': documento.Variables.Item(I).Value:= DM.ADODataSet4Provincia.AsString;
     'T': documento.Variables.Item(I).Value:= DM.ADODataSet4Telefono.AsString+' '+
                                       DM.ADODataSet4Movil.AsString;
    end; // Case
   end; // For
 end
 Else
 begin
   (* Añades un documento basado en la plantilla *)
   Word.Documents.Add(Ruta+'Informes\Plantilla.dot');
   Documento := Word.Documents.Item(1);

   (* Asignas valores a los campos *)
   Documento.Variables.Add('Nombre', DM.ADODataSet4Nombre.AsString+' '+
                                     DM.ADODataSet4Apellido1.AsString+' '+
                                     DM.ADODataSet4Apellido2.AsString);
   Documento.Variables.Add('Domicilio', DM.ADODataSet4Direccion.AsString);
   Documento.Variables.Add('Localidad', DM.ADODataSet4Localidad.AsString);
   Documento.Variables.Add('Provincia', DM.ADODataSet4Provincia.AsString);
   Documento.Variables.Add('Telefono', DM.ADODataSet4Telefono.AsString+' '+
                                       DM.ADODataSet4Movil.AsString);
  end;
   // actualizamos la tabla con el nuevo nombre de fichero
  Documento.Fields.Update;
  Word.ActiveDocument.SaveAs(Ruta+'Informes\'+
  IntToStr(DM.ADODataSet4PACIENTESCodigo.Value+10000)+'.Doc');
  Word.ActiveWindow.View.ShowFieldCodes := false;
  Word.Visible := true;
end;

Segun el Case (ya que solo puede usar valores integer o char), no puedo tener dos variables que empiecen por el mismo caracter en mi plantilla word, pero a mi me sirve usando el primer caracter del nombre de mi variable. En el IF, primero esta el caso de que ya exista el fichero, y despues del else, el caso de que no exista el fichero y tenga que crearlo nuevo a partir de la plantilla.

Espero que este post le sirva a alguien que se encuentre en el mismo problema que yo.

Muchas gracias a Roman y a Neftali por haberme abierto el camino.

Hola Siem, y otros del club Delphi Ayuda de Word
 

Hola Siem y otros del Club Delphi gracias por los aportes de enviar datos a word, pero quisiera que me ayudaran a resolver el problema de enviar datos para rellenar una factura que tiene:

HEADER
Codigo Cliente, Nombre , etc
DETALLES
Linea CodPro DescipcionProducto Precio Unit Valor Total
01 xxxxx xxxxxxxxxxxxxxxxx xxxxxxxx xxxxxxxxxxx
02 xxxxx xxxxxxxxxxxxxxxxx xxxxxxxx xxxxxxxxxxx
03 xxxxx xxxxxxxxxxxxxxxxx xxxxxxxx xxxxxxxxxxx
04 xxxxx xxxxxxxxxxxxxxxxx xxxxxxxx xxxxxxxxxxx
...
PIE DE PAGINA
TOTAL XXXXXXXXX

usando este ejemplo y otros he logrado rellenar las linea del cliente pero no en el header del documento, ni en el pie de pagina del documento, asi mismo como hago para replicar el detalle de la factura?

Me podrian dar una yuda por favor :p

te falta una instruccion para que muestre el word de resultado
 

Word.Visible := true;



y los campos se modifican antes de crear el documento, como te lo explicaban en el hilo anterior

atte.
Rodrigo