He conseguido resolver una parte del problema, pero ahora me surge otro. El hiperlink se crea bien en la COLUMNA 1, pero en la columna 2 se descompone y se graba en la columna 1 a continuación del hiperlink de la columna 1.
Si alguien tiene alguna idea o sugerencia, será bienvenida.
Un saludo
Jose Manuel
Código Delphi
[-]
procedure TfbNot.btn_crear_wordClick(Sender: TObject);
var
texto1:string;
Range: Variant;
Address:OLEvariant;
TextToDisplay:OLEvariant;
nombredoc : OleVariant;
f,c:integer;
begin
WordApplication1.Connect;
WordApplication1.Visible:=True;
WordDocument1.NewInstance; WordDocument1.PageSetup.Orientation := wdOrientPortrait;
WordDocument1.PageSetup.LeftMargin := 42.55; WordDocument1.PageSetup.RightMargin := 42.55; WordDocument1.PageSetup.TopMargin := 42.55; WordDocument1.PageSetup.BottomMargin := 56.70;
WordFont1.ConnectTo(WordDocument1.Content.Font);
WordFont1.Bold := 1;
WordFont1.Name := 'Arial';
WordFont1.Size := 20;
WordFont1.Color := clMaroon;
Texto1:='Boletín De Noticias';
WordDocument1.Content.InsertAfter(Texto1);
WordDocument1.Tables.Add (WordDocument1.Words.Last,4,2,EmptyParam,EmptyParam); Range := WordDocument1.Tables.Item(1).range;
Range.font.bold := 1;
Range.font.Name := 'Book Antiqua';
Range.font.size := 10;
Range.font.color := wdDarkBlue;
Range.ParagraphFormat.Alignment := wdAlignParagraphJustify;
for f := 1 to 1 do
for c := 1 to 2 do
begin
Range := WordDocument1.Tables.Item(1).Cell(f,c).range;
Address := trim(c_web.text);
TextToDisplay := trim(m_titulo.text);
---> aquí está el proablema, el hiperlink solo se crea bien en la COLUMNA1, falla en la 2
WordDocument1.Hyperlinks.Add(Range, ADDRESS, EmptyParam, EmptyParam, TextToDisplay, EmptyParam);
range.InsertAfter(chr(13)+chr(13)+m_noticias.text+#13+#13+c_fuente.text);
---> el resto del texto de la celda se graba correctamente, solo falla el HyperLink en la columna 2
end;
WordDocument1.Range.InsertParagraphAfter;
WordDocument1.Paragraphs.Last.Range.Text :=' aquí va el pie de pagina ';
WordApplication1.DisConnect;
end;