Ver Mensaje Individual
  #1  
Antiguo 27-12-2013
Jose Manuel Jose Manuel is offline
Miembro
 
Registrado: may 2003
Posts: 112
Reputación: 22
Jose Manuel Va por buen camino
Delphi-Word poner imagen en la cabecera del documento

Hola, estoy creando un documento Word desde Delphi 2007, y no se como poner una Imagen en la cabecera. Utilizo el siguiente codigo, pero la imagen la crea fuera de la cabecera.

Alguna sugerencia

Un saludo.

Código Delphi [-]
 with Word do
  begin
    with Selection do
    begin
      with Sections.Item(1).Headers.Item(1).Range do
      begin
        Text := 'LINEA DE TEXTO EN LA CABECERA'+#13;
        fic_imagen:= fdm.ADOTb_config.FieldByName('c_ruta_logo').AsString;
        if FileExists(fic_imagen) then
        begin
          LinkToF:=false;
          SaveWdoc:=true;
          Selection.InlineShapes.AddPicture(Fic_imagen,LinkToF,SaveWDoc,EmptyParam);
        end;
      end;
  .....
  ....
Responder Con Cita