Вопрос № 175195: Уважаемые эксперты подскажите, пожалуйста код в ВБА, в Вордовском документе имеется таблица № 3. Как сделать, чтобы линии 5 строки этой таблицы стали верхняя красным, нижняя жёлтым, левая зелёным, правая линия этой строки стала, синим цвет...
Вопрос № 175195:
Уважаемые эксперты подскажите, пожалуйста код в ВБА, в Вордовском документе имеется таблица № 3. Как сделать, чтобы линии 5 строки этой таблицы стали верхняя красным, нижняя жёлтым, левая зелёным, правая линия этой строки стала, синим цветом. И все линии этой строки стали белым цветом. И второй схожий вопрос подскажите, пожалуйста код в ВБА, в Вордовском документе имеется таблица № 3. Как сделать, чтобы линии 5 строки, 2 ячейки этой таблицы стали верхняя красным, нижняя жёлтым,
левая зелёным, правая линия этой ячейки стала, синим цветом. И все линии этой ячейки стали белым цветом. Спасибо Эндрю
Отвечает Ashotn, 6-й класс :
Здравствуйте, Ципихович Эндрю.
Для того, чтобы покрасить определенную линию таблицы, надо указать номер таблицы, номер строки, номер ряда и одну из констант wdBorderRight, wdBorderLeft, wdBorderTop, wdBorderBottom. Полезно употребить оператор With. Суть его в том, чтобы не повторять все время один и тот же текст. Повторяющийся код пишем в заголовке with With Word.ActiveDocument.Tables(1).Rows(2).Cells(5) .Borders(wdBorderRight).Color = wdColorRed .Borders(wdBorderLeft).Color = wdColorBlue .Borders(wdBorderTop).Color
= wdColorYellow .Borders(wdBorderBottom).Color = wdColorGreen End With
Если хотим все линии ячейки (или строки), окрасить в один цвет, есть другой оператор for each. Суть в том, что мы как бы говорим "Для всех границ этой ячейки сделай то-то".
For Each b In Документ.Tables(1).Rows(2).Cells(3).Borders b.Color = wdColorRed Next b
----- Я ни от чего, ни от кого не завишу.
Ответ отправил: Ashotn, 6-й класс
Ответ отправлен: 17.12.2009, 23:58
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 257873
на номер 1151 (Россия) |
Еще номера »
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.