Невидимые рамки (границы) таблицы-детали в отчетах Word

При построении пользовательского отчета MS Word с использованием детали - эта деталь отображается в самом отчете в виде таблицы. В некоторых отчетах это отображение не совсем удобно, особенно в тех случаях, когда необходимо отображение в виде списка.

Могу предложить скрыть рамки таблицы деталей следующим образом:
в скрипте scr_UseReportCommon после строки
var Table = Selection.Tables.Item(1); прописать следующее:

 
 for (var i = 1; i 8; i++) {
  Table.Borders(-i).LineStyle = 0;
 }
 Table.Borders.Shadow = false;

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

Желаю удачи!

С уважением.
Мельникова Екатерина

 

Нравится

Поделиться

1 комментарий

У меня строка

var Table = Selection.Tables.Item(1)

встречается дважды. В EvaluateDetailExpression и ProcessDetail. В каком именно месте нужно цикл добавить?

P.S. Писать

Table.Borders(-i).LineStyle = 0;

не очень хорошо. Чтобы облегчить жизнь тому кто придет после нас лучше писать

var wdLineStyleNone = 0;
Table.Borders(-i).LineStyle = wdLineStyleNone;

Кстати вот список стилей линий, может кому сгодится

wdLineStyleDashDot = 5
wdLineStyleDashDotDot = 6
wdLineStyleDashDotStroked = 20
wdLineStyleDashLargeGap = 4
wdLineStyleDashSmallGap = 3
wdLineStyleDot = 2
wdLineStyleDouble = 7
wdLineStyleDoubleWavy = 19
wdLineStyleEmboss3D = 21
wdLineStyleEngrave3D = 22
wdLineStyleInset = 24
wdLineStyleNone = 0
wdLineStyleOutset = 23
wdLineStyleSingle = 1
wdLineStyleSingleWavy = 18
wdLineStyleThickThinLargeGap = 16
wdLineStyleThickThinMedGap = 13
wdLineStyleThickThinSmallGap = 10
wdLineStyleThinThickLargeGap = 15
wdLineStyleThinThickMedGap = 12
wdLineStyleThinThickSmallGap = 9
wdLineStyleThinThickThinLargeGap = 17
wdLineStyleThinThickThinMedGap = 14
wdLineStyleThinThickThinSmallGap = 11
wdLineStyleTriple = 8

Показать все комментарии