[adebonis]

Hola.

Necesito insertar una tabla en un documento Word y rellenarla con unos datos, esto lo hago corectamente con este código

Código Delphi [-]
Resulta := GetActiveObject(CLASS_WordApplication, nil, Unknown);
  if (Resulta = MK_E_UNAVAILABLE) then
    Word := CoWordApplication.Create
  else begin
    OleCheck(Resulta);
    OleCheck(Unknown.QueryInterface(_Application, Word));
  end;
  Word.Documents.Open(DocumRtf, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
           EmptyParam, EmptyParam, EmptyParam, EmptyParam, Cero, EmptyParam,
           EmptyParam, EmptyParam, EmptyParam, EmptyParam);

  Word.ActiveDocument.Tables.Add(Word.Selection.Range, 5, 4, Pagina, Inicio);
  Word.Selection.Columns.PreferredWidth := 130;
  for i := 0 to Lista.Count- 1 do begin
    QueTexto := Lista[i];
    Word.Selection.TypeText(QueTexto);
    Word.Selection.MoveRight(Celda, EmptyParam, EmptyParam);
  end;
  Word.ActiveDocument.SaveAs(DocumRtf, EmptyParam, EmptyParam, EmptyParam,
         EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
         EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
         EmptyParam, EmptyParam);
  Word.Visible := False;
  Word.ActiveDocument.Close(Cero, Uno, No);

El caso es que la tabla me la dibuja con líneas dibujadas de separación, y yo quiero que no se vea ninguna línea.

¿Alguien sabe cómo hacerlo?, no he encontrado la manera.

Gracias

Adolfo Bonis
Barcelona