Foros Club Delphi - Como hacer un Contrato.

Puedes utilizar una plantilla del contrato en formato Word con una serie de 'marcadores' y que tu aplicación Delphi inserte estos marcadores automaticamente, Word se encargará de ajustar el texto según su longitud.

A mi me ha funcionado de esta manera:

Código:

 procedure TfMain.bnContratoClick(Sender: TObject);

 const

    Fichero = 'Contrato';

    DirectorioContratos: 'C:\Contratos\';

 var

    MiWord: OleVariant;

    procedure SustituirMarcador(Marcador, Contenido: string);

          begin

           if MiWord.ActiveDocument.Bookmarks.Exists(Marcador) then

                  MiWord.ActiveDocument.Bookmarks.Item(Marcador).Range.InsertBefore(Contenido);

          end;

 begin

    // Intento abrir Word...

    MiWord:= CreateOleObject('Word.Application');

    if VarIsEmpty(MiWord) then

           raise exception.create('No puedo abrir Word, puede que no este instalado!');

    // Abre el documento de Word

    MiWord.Documents.Open(DirectorioContratos + Fichero + '.doc');

    // Selecciona los marcadores del documento y los reemplaza

    // con los valores de los campos del formulario.

    // Los marcadores deben de haber sido creados previamente en word

    SustituirMarcador('CODIGO', TablaCODIGO.AsString);

    SustituirMarcador('CONCEPTO', TablaCONCEPTO.AsString);

    SustituirMarcador('NOMBRECOMPLETO', TablaNOMBRECOMPLETO.AsString);

    SustituirMarcador('DIRECCION', TablaDIRECCION.AsString);

    SustituirMarcador('DNI', TablaDNI.AsString);

    SustituirMarcador('TELEFONO', TablaTELEFONO.AsString);

    // etc

    

    // maximizamos la ventana de Word

    MiWord.WindowState:=wdWindowStateMaximize;

    MiWord.ActiveWindow.WindowState:=wdWindowStateMaximize;

    // Hace visible la ventana de Word

    MiWord.Visible:=True;

    // Guardamos el contrato

    MiWord.ActiveDocument.SaveAs(

           DirectorioContratos +

           'Contrato' + FormatFloat('000000', TablaCODIGO.AsInteger) + '.doc');

 end;