[Konstantin-78]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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) для зарисовки границ (черные линии), выдал:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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, создать такой же код:

Код:

1 2 3

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

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

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

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

[dr. F.I.N.]

Вот прям решение не подскажу, но один из способов получить желаемое:
1. Открываете Ворд.
2. Записываете макрос того действия что Вам нужно выполнить.
3. Открываете макрос и воспроизводите (в Delphi) методы макроса, корректирую синтаксис VBA в Pascal.
Мне помогало.