Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #20  
Antiguo 07-08-2007
fmatias fmatias is offline
Miembro
 
Registrado: jun 2003
Posts: 25
Poder: 0
fmatias Va por buen camino
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.
__________________
www.creativoz.com
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Insertar filas en Tabla(word) Loviedo Servers 2 14-11-2007 00:12:40
Automatizacion de word (insertar tablas) alt126 C++ Builder 2 04-11-2005 10:44:29
Insertar objetos en Word ingel Varios 0 18-05-2005 22:42:12
Cómo insertar un salto de página a word desde delphi? nacho Servers 3 08-03-2005 21:02:16
Insertar Imagenes desde Delphi a un Documento Word ludan508 Servers 1 21-09-2004 01:07:02


La franja horaria es GMT +2. Ahora son las 17:36:54.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi