diff --git a/Source/Informes/CertificadoTrabajos.rdx b/Source/Informes/CertificadoTrabajos.rdx
index ae7194d0..473290a3 100644
Binary files a/Source/Informes/CertificadoTrabajos.rdx and b/Source/Informes/CertificadoTrabajos.rdx differ
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas
index fe860d90..96928d37 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordCertificadoTrabajo_Server.pas	
@@ -127,9 +127,10 @@ end;
 
 function TRptWordCertificadoTrabajo.RellenarInforme: boolean;
 var
-  NombreCapitulo : String;
-  Estilo : OleVariant;
-  ADescripcion : String;
+  NombreCapitulo : string;
+  ADescripcion : string;
+  ANombreFichero : string;
+  AFicheroTemporal : string;
 begin
   with FDocumento, tbl_Cabecera do
   begin
@@ -138,7 +139,7 @@ begin
        FieldByName('CODIGO_POSTAL').AsString + ' ' +
        FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString);
 
-    ADescripcion := FieldByName('REFERENCIA').AsString;
+    ReplaceBookmark('Referencia', FieldByName('REFERENCIA').AsString);
   end;
 
   FContadorCap := 0;
@@ -146,7 +147,7 @@ begin
   with FDocumento, tbl_Capitulos do
   begin
     First;
-
+    ADescripcion := '';
     while not Eof do
     begin
       if (FieldByName('TIPO_DETALLE').AsString = 'Titulo') or
@@ -176,9 +177,14 @@ begin
       end;
     end;
     FNumCapitulos := FContadorCap;
-
-    ReplaceBookmark('Descripcion', ADescripcion);
+    ReplaceBookmark('Capitulos', ADescripcion);
   end;
+
+  ANombreFichero := DarFicheroTemporal;
+  EscribirEnFichero(ANombreFichero, tbl_Cabecera.FieldByName('PORTADA').AsString);
+  FWordApp.InsertFile(ANombreFichero, 'Portada');
+  SysUtils.DeleteFile(ANombreFichero);
+
   Result := True;
 end;