CommandButton в Word'е

[inq]

Уважаемые гуру ВБА, возникла пара вопросов, подскажите, пожалуйста.

В документе есть таблица, в первом стоблце которой в каждой строке содержится CommandButton. Вопрос - как по имени CommandButton'a определить номер строки, в которой он содержится?

И дополнительно
После закрытия/открытия документа почему то "слетели" имена всех контролов (чекбоксов, буттонов и др.) - ко всем в конце добавилась единица. Соответствено все связанные ивенты перестали работать. При попытке "вернуть" исзодные имена - ругается "ambiguous name detected". Пишу сразу - никаких копипастов не делал и дубляжа контролов нет. Кто-нить сталкивался с таким? Что можно сделать? Office2002 SP-2.
Заранее спасибо )

[GSerg]

Ответ - дать кнопкам такие имена, чтобы было понятно, в какой они строке.

И дополнительно - у меня так получалось, если кнопке снять флаг "Поверх текста".

[inq]

Ответ - дать кнопкам такие имена, чтобы было понятно, в какой они строке.

Не очень хорошо - хочется унификации, не привязываясь к конкретному имени.

через номер ячейки к кнопке добираемся
tables(1).cells(i, 1).Range.InlineShapes(1).OLEFormat.Object.Name
Возможно ли обратный переход - от имени кнопки к номеру ячейки?

И дополнительно - у меня так получалось, если кнопке снять флаг "Поверх текста".

Да, когда меняешь способ расположения объекта - тот преобразуется в shape и к имени добавляется злополучный номер. Только вот я не преобразовывал их...

[GSerg]

Ну тада ThisDocument.InlineShapes(i).Range.Rows(1).Index

[inq]

ThisDocument.InlineShapes(i).Range.Rows(1).Index

Только вот i неизвестно

Пояснение - нажата кнопка, как узнать в какой строке находится нажатая кнопка?

[GSerg]

Ну и чё? Это ж суть...
Массивы контролов в vba не поддерживаются, поэтому обработчик свой у каждой кнопки. В лучшем случае, обработчик выглядит так:

Код: Выделить всё

private sub CommandButton1_Click
  CommonHandler CommandButton1
end sub

private sub CommandButton2_Click
  CommonHandler CommandButton2
end sub

private sub CommonHandler(byval c as commandbutton)
  msgbox с.range.rows(1).index
end sub


[inq]

GSerg
нет у CommandButton св-ва range...
А через inlineshape - неизвестен номер данной кнопки в этом семействе. Можно, конечно, перебирать всю коллекцию в поисках объекта с данным именем...

Похоже все-таки придется отказаться от унификации

Спасибо.

[$€rg]

http://bbs.vbstreets.ru/viewtopic.php?t ... mrightcell
или
имякнопки.BottomRightCell.Cells.Row

не то

[GSerg]

Значит у тебя не те кнопки, что у меня...

[inq]

Значит у тебя не те кнопки, что у меня...

Обычные вордовские commandbutton'ы