[jeremiselxi]

Buenas tardes.

Tal como dice el titulo, estoy intentando hacer algo que por mas que he querido no me sale,

Lo único que quiero es exportar un documento en excel y que en este contenga una celda con la primera parte en negrita y la otra parte normal.

Ejemplo de Celda.

------
Caso No 1: Este es un comentario
Caso No 2: Este es otro comentario
------


Adjunto el código que tengo hasta ahora

Código Delphi [-]

procedure TForm_Fondos_fijos_reponibles.btnExportaraexcelClick(Sender: TObject);
var
  Libro : _WORKBOOK;
  Hoja  : _WORKSHEET;
 contar, i,colora:Integer;
//  progreso:real;
Hojainicio:integer;
begin

ShowMessage('Espere un momento');

i:=0;

Libro := Excel.Workbooks.Add(Null, 0);
Hoja  := Libro.Sheets[1] as _WORKSHEET;

i:=i+1;
Hoja.Cells.Item[i,1]:='Caso';
Hoja.Cells.Item[i,2]:='Comentario';
Hoja.Cells.Item[i,3]:='Comentario Para el Informe.';
Hoja.Range['A'+ inttostr(i),'F'+ inttostr(i)].Font.Bold:=true;
Hoja.Range['A'+ inttostr(i),'F'+ inttostr(i)].WrapText:=true;
Hoja.Range['A'+ inttostr(i),'F'+ inttostr(i)].HorizontalAlignment := xlcenter;


//Insertamos todos los registros al excel  y en dbgrid 1
  with DataModule_financiero.query_fondos_fijos_reponibles do
    begin
    first;
    contar:=0;
      while not EOF Do
        begin
        i:=i+1;
        contar:=contar+1;
         
            Hoja.Range['A'+ inttostr(i),'A'+ inttostr(i)].Font.Bold:=true;
            Hoja.Cells.Item[i,1]:='Caso No. ' +inttostr(contar)+ ', ';
            Hoja.Cells.Item[i,2]:=DBGrid1.Fields[8].AsString;

//Aqui necesito unir las dos celdas, y que lo que esté en Hoja.Cells.Item[i,1] salga negrita y lo que esté en Hoja.Cells.Item[i,2] salga normal


        Next;

   end;//while
end;//with

ShowMessage('Exportado con Exito!');

Excel.Visible[0] := true;

end;

Espero haberme explicado bien.

Cualquier inquietud o duda me dejan saber.

Saludos y Dios les bendiga a todos.