[Konstantin-78]

Доброе время суток форумчане,

У меня есть функция, с помощью котрой я вставляю в MSWord таблиц:

Код:

function CreateTable(ANumRows, ANumColumns: integer;
                     var ATableID: integer): boolean; export;
var
  sel_: variant;
begin
  CreateTable := true;
  try
    sel_ := Words_Templs.selection;
    Words_Templs.ActiveDocument.Tables.Add(Range := sel_.Range, NumRows := ANumRows, NumColumns := ANumColumns);
    ATableID := Words_Templs.ActiveDocument.Tables.Count;
  except
    CreateTable := false;
  end;
end;

Таблица в Word вставляется, но с прозрачными границами.
Макрос (в Word) для зарисовки границ (черные линии), выдал:

Код:

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderLeft)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderRight)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
End Sub

Я попробовал в Delphi 10.2, создать такой же код:

Код:

sel_.Cells.Borders.Item(1).LineStyle := 1;
sel_.Cells.Borders.Item(1).LineWidth := 2;
sel_.Cells.Borders.Item(1).Color := 0;

но так я делаю видимой только верхнюю границу, и только первой ячейки. А мне нужно всю таблицу сделать видимой

Каким образом это можно сделать?

Спасибо за ответы