Работа с бордюрами Word -таблица

← →
Dimich1978 (2008-07-24 15:25) [0]

Пишу код
W.SElection.Borders.LineStyle := wdLineStyleNone;
Для того чтобы сощзданная таблица была при печати не видна. Но выдает ошибку что метода LineStyle- нет.
Вот что выдрал из макроса
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
Как можно убрать бордюры у таблицы. Заранее спасибо.

← →
DFT (2008-07-24 15:36) [1]

А если писать также...?

W.SElection.Borders(wdBorderTop).LineStyle := wdLineStyleNone;

← →
Dimich1978 (2008-07-24 15:38) [2]

В таком случае Borders не является методом.

← →
Anatoly Podgoretsky © (2008-07-24 15:45) [3]

Вот что говорит MSDN, что такое Borders

> Use the Borders property to return the Borders collection

От себя добавлю, что это индексированое свойство.

← →
DFT (2008-07-24 16:28) [4]

Насколько я знаю, структуры данных используемые в Word, аналогичны, и для VBA и для любых приложений использующих его СOM интерфейс (если вы рабатаете непосредственно, без применения каких-либо связывающих "компонентов-адаптеров").

← →
Vlad Oshin © (2008-07-24 17:05) [5]

а так?
Selection.Cells.Borders.Item(wdBorderLeft).LineStyle:=wdLineStyleNone;

← →
clickmaker © (2008-07-24 17:20) [6]

а так?
Selection.Borders[wdBorderTop].LineStyle

← →
DFT (2008-07-24 17:50) [7]

Еще можно попробовать использовать индексированный доступ к таблицам.
Ворда под рукой нет, но помоему, что-то вроде...
ActiveDocument.Range.Table[i]. ... и посмотреть какие свойства есть у объекта-таблицы.
Возможно там регулируются и стиль ее границ

← →
DFT (2008-07-24 23:41) [8]

Самому интересно стало.
Правильно будет так ...

ActiveDocument.Range.Tables(1).Borders(wdBorderVertical).LineStyle = wdLineStyleNone
ActiveDocument.Range.Tables(1).Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone

← →
Dimich1978 (2008-07-25 12:42) [9]

Вот это метод у меня работает(Д7-ХРСП2-2003ворд)
W.Selection.Cells.Borders.Item(wdBorderLeft).LineStyle:=wdLineStyleNone;
А это не пашет:
W.ActiveDocument.Range.Tables(1).Borders(wdBorderVertical).LineStyle = wdLineStyleNone

Работа с бордюрами Word -таблица Найти похожие ветки