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
Word := CreateOleObject('Word.Application');
if FileExists(dbDOC.field.value) then documento:=Word.Documents.Open(dbDOC.field.value)
else Word.Documents.Add(ExtractFilePath(Application.ExeName)+'Docs\Plantillas\caso1.dot');
Documento := Word.Documents.Item(1);
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);
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.