Нужен макрос (MSWord)
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Нужен макрос (MSWord) - 2007-04-20 16:13:32.253333
|
|
|
JTG
Сообщений: 1189
Оценки: 0
Присоединился: 2007-03-05 11:56:01.993333
|
Надо макрос, который удаляет все ссылки в документе. Кто в ВБА шарит?
|
|
|
|
|
RE: Нужен макрос (MSWord) - 2007-04-20 21:06:45.463333
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
quote:
ORIGINAL: JTG
Надо макрос, который удаляет все ссылки в документе. Кто в ВБА шарит?
ActiveDocument.Select
Do Until Selection.Hyperlinks.Count = 0
Selection.Hyperlinks(1).Delete
ActiveDocument.Select
Loop
|
|
|
|
|
RE: Нужен макрос (MSWord) - 2007-04-23 11:58:12.586666
|
|
|
JTG
Сообщений: 1189
Оценки: 0
Присоединился: 2007-03-05 11:56:01.993333
|
Пасиб, уже вот так сделал.
(Что интересно, если цикл задом-наперёд не поставить, удаляется только каждая вторая :@)
For current = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(current).Delete
Next current
|
|
|
|
|
RE: Нужен макрос (MSWord) - 2007-04-23 13:22:26.666666
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
quote:
ORIGINAL: JTG
Пасиб, уже вот так сделал.
(Что интересно, если цикл задом-наперёд не поставить, удаляется только каждая вторая :@)
For current = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(current).Delete
Next current
А у меня все удаляются:)
|
|
|
|
|
RE: Нужен макрос (MSWord) - 2007-04-23 14:03:05.556666
|
|
|
JTG
Сообщений: 1189
Оценки: 0
Присоединился: 2007-03-05 11:56:01.993333
|
Удаляются у него все…
Зато ActiveDocument.Select порядком занимает время, а если в документе (к примеру 6 метров) таблица, а в ней 10 000 линков, тада это не есть гут [sm=ao.gif] :D
|
|
|
|
|
RE: Нужен макрос (MSWord) - 2007-04-23 14:05:49.840000
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
quote:
ORIGINAL: JTG
Удаляются у него все…
Зато ActiveDocument.Select порядком занимает время, а если в документе (к примеру 6 метров) таблица, а в ней 10 000 линков, тада это не есть гут [sm=ao.gif] :D
Логично, да и код у тебя всего три строчки, зато мой быстрее нарисовался, у меня вообще оптимизация хромает постоянно, главное результат, о чем потом всегда жалею
|
|
|
|
|
RE: Нужен макрос (MSWord) - 2007-04-23 14:52:58.940000
|
|
|
JTG
Сообщений: 1189
Оценки: 0
Присоединился: 2007-03-05 11:56:01.993333
|
А я наоборот с-час провозился, и через for each пробовал, пока допёрло цикл развернуть, вообще-то с бейсиком не дружу, не нравится мне он
|
|
|
|
|
|
