var
v1: OleVariant;
v2: OleVariant;
v3: OleVariant;
v4: OleVariant;
doc: WordDocument;
tbl: Table;
rng: Range;
brd: Borders;
begin
App.Connect;
App.Visible := True;
v1 := EmptyParam;
v2 := EmptyParam;
v3 := EmptyParam;
v4 := True;
doc := App.Documents.Add(v1, v2, v3, v4);
v1 := 0;
v2 := 0;
v3 := EmptyParam;
v4 := EmptyParam;
tbl := doc.Tables.Add(Doc.Range(v1, v2), 16, 4, v3, v4);
v1 := tbl.Cell(1, 1).Range.Start;
v2 := tbl.Cell(8, 2).Range.End_;
rng := doc.Range(v1, v2);
brd := rng.Borders;
brd.Item(wdBorderLeft).LineStyle := wdLineStyleDouble;
brd.Item(wdBorderRight).LineStyle := wdLineStyleDouble;
brd.Item(wdBorderTop).LineStyle := wdLineStyleDouble;
brd.Item(wdBorderBottom).LineStyle := wdLineStyleDouble; |
, может потом надо какой-то метод чарта вызвать чтоб перерисовался
