Цитата(wood @ 8.2.2009, 12:55  ) | | 1: как объединить соседние ячейки в таблице ворда. |
См. http://forum.vingrad.ru/forum/topic-243370.html
| Цитата(wood @ 8.2.2009, 12:55 ) | | 2: как любую линию границы ячейки (любую из верх, низ, право, лево) сделать невидимой (все границы таблицы внутренние и внешние - wdLineStyleSingle). |
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
Doc, Table: OleVariant;
begin
Doc := WordApplication1.ActiveDocument;
Table := Doc.Tables.Add(Doc.Content, 5, 5);
Table.Borders.InsideLineStyle := wdLineStyleSingle;
Table.Borders.OutsideLineStyle := wdLineStyleSingle;
{ Уберем у левой верхней ячейки нижнюю границу }
Table.Cell(1, 1).Borders.Item(wdBorderBottom).Visible := False;
{ Уберем у левой нижней ячейки правую границу }
Table.Cell(5, 1).Borders.Item(wdBorderRight).Visible := False;
Table := Unassigned;
Doc := Unassigned;
end;
|
|