| Вопрос: Как удалить гиперссылки | Добавлено: 06.03.04 18:03 |
Автор вопроса:  Ku-Ku
|
| Нужно исследовать документ на наличие гиперссылок и удалить их. Подскажите пожалуйста. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: dedtolya Вопросов: 0 Ответов: 39 |
Профиль | Цитата | #1 | Добавлено: 09.03.04 11:36 |
|
Sub DelHyperlink() Dim h As Hyperlink Dim hr As Range For Each h In ActiveSheet.Hyperlinks Set hr = h.Range h.Delete 'удаляет г.с hr.Clear'чистит ячейку Next
End Sub |
||
Страница: 1 |