Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
09.04.2007, 21:30:24
|
|||
|---|---|---|---|
|
|||
Как убрать гиперлинки из текста в Ворде? |
|||
|
#18+
Необходимо написать макрос для просмотра всего выделенного текста и убрать все гиперлинки в нем. Линки убирает Selection.Range.Hyperlinks(1).Delete но убирает по одному линку, а надо все..... Подсчитать все линки в документе и в цикле применить функцию удаления? А как их подсчитать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
09.04.2007, 21:49:56
|
|||
|---|---|---|---|
|
|||
Как убрать гиперлинки из текста в Ворде? |
|||
|
#18+
Вот глупый!!! Сначала спрошу, потом думаю..... a = Selection.Range.Hyperlinks.Count For i = 0 To a - 1 Selection.Range.Hyperlinks(1).Delete Next i ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.05.2007, 21:04:25
|
|||
|---|---|---|---|
|
|||
Как убрать гиперлинки из текста в Ворде? |
|||
|
#18+
Как оказалось, этот код работает только в MSO200, в 2000м офисе не работает Beeland a = Selection.Range.Hyperlinks.Count For i = 0 To a - 1 Selection.Range.Hyperlinks(1).Delete Next i А вот этот работает и в MSO2000, да и документ помечать не надо, удаляет все гиперлинки в документе. a = ActiveDocument.Range.Hyperlinks.Count For i = 1 To a ActiveDocument.Hyperlinks(1).Delete Next i ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&mobile=1&tid=2183016]: |
0ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
50ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
27ms |
get tp. blocked users: |
1ms |
| others: | 202ms |
| total: | 319ms |
| 0 / 0 |
