Insertar datos a word

[fmatias]

Qusiera aprovechar este hilo para intentar resolver mi problema.
Tengo una variante del código descrito anteriormente que comprueba si existe ya un documento de word.

Si existe el documento abre el existente y si no existe abre el documento plantilla.

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

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

  (* Añadimos un documento basado en la plantilla *)
  if FileExists(dbDOC.field.value) then   // si existe el fichero lo abrimos
     documento:=Word.Documents.Open(dbDOC.field.value)
  else  // abrimos la plantilla
    Word.Documents.Add(ExtractFilePath(Application.ExeName)+'Docs\Plantillas\caso1.dot');

    Documento := Word.Documents.Item(1);
    (* Asignas valores a los campos *)
    Documento.Variables.Add('Nombre',nombre );
    Documento.Variables.Add('Direc', direccion);
    Documento.Variables.Add('Local', localidad);
    Documento.Variables.Add('Prov', provincia);

    
    Word.ActiveDocument.SaveAs(ExtractFilePath(Application.ExeName)+'Docs\1Notificacion\'+dbidReg.field.  value);
    // actualizamos la tabla con el nuevo nombre de fichero 
    adocartas1.Edit ;
    dbDOC.field.value:=ExtractFilePath(Application.ExeName)+'Docs\1Notificacion\'+dbidReg.field.value+'.  doc';
    adocartas1.Post ;

   Documento.Fields.Update;
   Word.ActiveWindow.View.ShowFieldCodes := false;
   Word.Visible := true;

end;

Cuando abre el documento plantilla, va perfectamente, pero al abrir un documento existente me aparece un mensaje indicando que ya existe ese nombre de variable refirendose al código donde se añaden las variables.

¿Es posible limpiar las variables creadas en el documento existente?

Quedo pendiente de vuestras respuestas.

[romacruzz]

Tenemos varias [FONT='Verdana','sans-serif']DOCVARIABLE nombre\* MERGEFORMAT } en una plantilla o machote , en delphi queremos programar las busqueda para que encuentre dentro de la platilla estas variables [FONT='Verdana','sans-serif']DOCVARIABLE nombre\* MERGEFORMAT } sustituirlas por informacion que tenemos en una base de datos....Como hacemos esto amigos..[/font][/font]
[FONT='Verdana','sans-serif'][/font]
[FONT='Verdana','sans-serif'][FONT='Verdana','sans-serif']No hay mucha informacion de como tratar archivos de word en delphi...[/font][/font]
[FONT='Verdana','sans-serif']
[/font]

Empezado por fmatias

Qusiera aprovechar este hilo para intentar resolver mi problema.
Tengo una variante del código descrito anteriormente que comprueba si existe ya un documento de word.

Si existe el documento abre el existente y si no existe abre el documento plantilla.


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

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

(* Añadimos un documento basado en la plantilla *)
if FileExists(dbDOC.field.value) then // si existe el fichero lo abrimos
documento:=Word.Documents.Open(dbDOC.field.value)
else // abrimos la plantilla
Word.Documents.Add(ExtractFilePath(Application.ExeName)+'Docs\Plantillas\caso1.dot');

Documento := Word.Documents.Item(1);
(* Asignas valores a los campos *)
Documento.Variables.Add('Nombre',nombre );
Documento.Variables.Add('Direc', direccion);
Documento.Variables.Add('Local', localidad);
Documento.Variables.Add('Prov', provincia);


Word.ActiveDocument.SaveAs(ExtractFilePath(Application.ExeName)+'Docs\1Notificacion\'+dbidReg.field. value);
// actualizamos la tabla con el nuevo nombre de fichero
adocartas1.Edit ;
dbDOC.field.value:=ExtractFilePath(Application.ExeName)+'Docs\1Notificacion\'+dbidReg.field.value+'. doc';
adocartas1.Post ;

Documento.Fields.Update;
Word.ActiveWindow.View.ShowFieldCodes := false;
Word.Visible := true;

end;





Cuando abre el documento plantilla, va perfectamente, pero al abrir un documento existente me aparece un mensaje indicando que ya existe ese nombre de variable refirendose al código donde se añaden las variables.

¿Es posible limpiar las variables creadas en el documento existente?

Quedo pendiente de vuestras respuestas.