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