Как изменить цвет сетки таблицы?
Falk0ner, вс, 06/07/2008 - 15:35.
Как изменить цвет сетки таблицы? Информация о стиле, цвете и других параметрах ячейки таблицы содержится в элементах коллекции Borders, которые, по сути, представляют собой линии, ограничивающие и пересекающие ячейку. Выбор элемента коллекции производится через константы WdBorderBottom, WdBorderHorizontal, WdBorderLeft, WdBorderRight, WdBorder, wdBorderVertical. Цвет сетки определяется индексом, который записывается в поле ColorIndex элемента коллекции. Оператор установки цвета для Delphi выглядит следующим образом, смотрите пример:
W.ActiveDocument.Tables.Item(tab_).Columns.Item(col_).Cells.Item(row_).Borders.Item(wdBorder).ColorIndex:=wdDarkRed;
где tab_ - номер таблицы, col_ - номер колонки, row_ - номер строки, wdBorder - верхняя граница ячейки, wdDarkRed - цветовой индекс. Значения цветовых индексов и констант, определяющих выбор элемента коллекции Borders, можно определить опытным путем, запустив макрос Word. Например:
Sub Макрос16()
'
' Макрос16 Макрос
' Макрос записан 29.07.03 Корняков Василий Николаевич
'
MsgBox (wdBorder)
End Sub
'
' Макрос16 Макрос
' Макрос записан 29.07.03 Корняков Василий Николаевич
'
MsgBox (wdBorder)
End Sub
Отправить комментарий