Консультация № 175152
12.12.2009, 08:19
35.00 руб.
0 4 1
Уважаемые эксперты подскажите в Вордовском документе код в ВБА следующего:
в первой таблице документа в последней строке в ёё вторую ячейку разбить на две равные части. Спасибо Эндрю

Обсуждение

Неизвестный
12.12.2009, 14:11
общий
это ответ
Здравствуйте, Ципихович Эндрю.

Sub Макрос1()
Dim doc As Document
Set doc = Word.ActiveDocument
doc.Tables(1).Cell(doc.Tables(1).Rows.Count, 2).Split 1, 2
End Sub
5
Неизвестный
12.12.2009, 14:25
общий
Балясов Андрей:
Спасибо за ответ и забыл сразу указать в вопросе, после разбивки ячейки как указать, чтобы появившийся этот разделитель ячейки "|" стал например жёлтым цветом
Неизвестный
12.12.2009, 14:29
общий
Тогда вот так

Sub Макрос1()
Dim doc As Document
Set doc = Word.ActiveDocument
doc.Tables(1).Cell(doc.Tables(1).Rows.Count, 2).Split 1, 2
doc.Tables(1).Cell(doc.Tables(1).Rows.Count, 2).Borders(wdBorderRight).Color = wdColorYellow
End Sub
Неизвестный
12.12.2009, 14:36
общий
Балясов Андрей:
Спасибо.
Форма ответа