Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-02-2020
McGuire McGuire is offline
Registrado
 
Registrado: oct 2019
Posts: 1
Poder: 0
McGuire Va por buen camino
MS Word y campos Check

Hola a todos , estoy realizando un programa en delphi 7 y utilizo un documento de word como plantilla para generar la impresión. He leido en mensajes antiguos como insertar los campos con
Código Delphi [-]
 (* Creas un objeto Word *)
    DocWord := CreateOLEObject('Word.Application');

    (* Añades un documento basado en la plantilla *)
    DocWord.Documents.Add(Ruta);
    DocWord.visible:=False;
    Documento := DocWord.Documents.Item(1);

    (* Asignas valores a las variables // según informe ...*)

        Documento.Variables.add('_Campo1', QTabla.FieldByName('RefDocumento').Value);

(*Aqui me gustaría actualizar un campo check de word según el valor del campo*)
...



    (*Actualizas los campos*)
    Documento.Fields.Update;
    //DocWord.Visible:= True;
    //documento.Fields.ToggleShowCodes; //Alternas o no los codigos de campo o valor si no lo pones
    // DocWord.visible :=True;        //Opcional si quieres ver el Word


      (* Guardas Informe *)
      Documento.SaveAs(ExtractFilePath(application.ExeName)+'informes\Doc'+QTabla.FieldByName('RefDocument  o').Value+'.doc');

      (* Lo exportas a PDF*)  //SE NECESITA COMPLEMENTO DE OFFICE 2007 a PDF
      rutadoc:=ExtractFilePath(application.ExeName)+'Informes\Document'+QTabla.FieldByName('RefDocumento')  .Value+'.pdf';
      Documento.ExportAsFixedFormat(rutadoc, wdExportFormatPDF);
   //     Doc.ExportAsFixedFormat('C:\Aquanova\Document.pdf', wdExportFormatPDF);
    end;

    Docword.Quit(False); //Sale y no pregunta si guardar cambios -> (false)
    Docword:= Unassigned;

Pero intento cambiar un check en word desde delphi y sinceramente no se como hacerlo,
he creado un campo en el documento de word de tipo FORMCHECKBOX pero no se como acceder a el desde delphi para cambiar su valor.

Gracias de antemano,
Responder Con Cita
Respuesta



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
Error al sacar informe en word con campos de fusión. JM75 Impresión 2 10-11-2014 18:26:53
insertar campos dinámicamente en un documento word Aurepilo Servers 4 26-09-2012 13:54:35
campos en word juliobuitrago Servers 5 16-06-2008 02:49:22
Relleno de campos en word desde delphi aanil Servers 3 17-04-2008 15:54:51
Ms Word 2000/97 + Ms sql server 7/2000 + almacenar - leer - actualizar Campos jcp_nqn Servers 0 21-12-2003 01:55:14


La franja horaria es GMT +2. Ahora son las 16:08:17.


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