Delphi 10.2 В MSWord увеличить толщину границы таблицы

[KBO]

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

У меня есть функция, с помощью котрой я вставляю в 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) для зарисовки границ (черные линии), выдал:

With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With...

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

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

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

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

[Sciv]

'Запрашиваемый номер семейства не существует'

Вроде бы это ВэБэшный аналог ошибки Subscript out of range. То есть какое-то значение за пределами диапазона.

Предполагаю, что тут:

sel_.Cells.Borders.Item(0).LineStyle:=$00000001;

должно быть Item(1)

[KBO]

Да, не с нуля начинается, (

А как мне всю таблицу отобразить, а то

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


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

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


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

чтоб границы были у одной ячейки, как-то НЕ ТО

[Sciv]

Цикл до Items.Count - думаю, есть такое свойство, если Items является коллекцией

[KBO]

Сообщение от Sciv

Цикл до Items.Count - думаю, есть такое свойство, если Items является коллекцией

К сожалению, на

for i := 1 to sel_.Cells.Borders.Item.Count do
begin
  sel_.Cells.Borders.Item(i).LineStyle := 1;
  sel_.Cells.Borders.Item(i).LineWidth := 2;
  sel_.Cells.Borders.Item(i).Color := 0;
end;

ошибка:
... exception class EOleError with message 'Method 'Items' not supported by automation object'.

[Аватар]

Внутренний голос подсказывает, что должно быть примерно так

sel_.Cells.Item[m,n].Borders[xlDiagonalDown].LineStyle:=...

xlDiagonalDown

PS только внутренний голос excel вспомнил, а не word. Но там должно быть похоже, сохрани макрос и посмотри как в нем устроено

[KBO]

Все проще:

begin
      LSel.Tables.Item(1).Borders.item(-1).LineStyle:=1;
      LSel.Tables.Item(1).Borders.item(-2).LineStyle:=1;
      LSel.Tables.Item(1).Borders.item(-3).LineStyle:=1;
      LSel.Tables.Item(1).Borders.item(-4).LineStyle:=1;
      LSel.Tables.Item(1).Borders.item(-5).LineStyle:=1;
      LSel.Tables.Item(1).Borders.item(-6).LineStyle:=1;
    end;

[KBO]

Сообщение от Аватар

sel_.Cells.Item[m,n].Borders[xlDiagonalDown].LineStyle:=...

Вместо "xlDiagonalDown", сейчас используют
цифровые константы

[KBO]

А еще такой вопрос, вот есть шаблон, *.doc,
я туда подставляю значения.

У меня также в шаблоне, есть таблица, у которой есть только шапка
Мне нужно нужно заполнить таблицу.
Я могу заполнить эту таблицу, не имея ее идентификатора?
Или мне нужно полностью вставлять готовую таблицу вместе с шапкой?

P.S.
Хотя существует вероятность изменения шапки в шаблоне самим пользователем