Ver Mensaje Individual
  #1  
Antiguo 06-10-2011
Jose Manuel Jose Manuel is offline
Miembro
 
Registrado: may 2003
Posts: 112
Reputación: 21
Jose Manuel Va por buen camino
Hyperlink en Word desde Delphi 2007

Hola, busco ayuda para solucionar el siguiente problema. En un form tengo 2 campos, un titulo y una dirección web y quiero que Delphi 2007 cree un documento WORD generando un HIPERLINK con estos 2 campos, me funciona todo menos la instrucción para crear el HIPERLINK.

Código Delphi [-]
procedure TfbNot.btn_crear_wordClick(Sender: TObject);
var
texto1:string;
begin

 WordApplication1.Connect;
 WordApplication1.Visible:=True;
 WordDocument1.NewInstance; //Crear el doc
 WordFont1.ConnectTo(WordDocument1.Content.Font);
 WordFont1.Bold := 2;
 WordFont1.Name := 'Arial';
 WordFont1.Size := 11;
 //*****************************************************************************
 Texto1:='Prueba';
 WordDocument1.Content.InsertAfter(Texto1);
 WordDocument1.Tables.Add (WordDocument1.Words.Last,14,2,EmptyParam,EmptyParam); // nº de columnas y filas a crear
 WordDocument1.Tables.Item(1).Cell(2,1).Range.Text := c_web.text;      // link
 WordDocument1.Tables.Item(1).Cell(3,1).Range.Text := m_noticias.text; // noticia
 WordDocument1.Tables.Item(1).Cell(4,1).Range.Text := c_fuente.text;   // fuente
 //*****************************************************************************
 // Aquí esta el problema, quiero poner un hiperlink para la celda (1,1,), con 2 edits: c_web.text  y   c_titulo.text;

 WordDocument1.Hyperlinks.add( WordDocument1.Tables.Item(1).Cell(1,1).Range, c_web.text, '','',c_titulo.text);

 // este es el error: Types of actual and formal var parameters must be identical

 WordApplication1.DisConnect;
end;

Un saludo y muchas gracias a todos.
Jose Manuel.
Responder Con Cita