|
|
|
Как убрать гиперлинки из текста в Ворде?
|
|||
|---|---|---|---|
|
#18+
Необходимо написать макрос для просмотра всего выделенного текста и убрать все гиперлинки в нем. Линки убирает Selection.Range.Hyperlinks(1).Delete но убирает по одному линку, а надо все..... Подсчитать все линки в документе и в цикле применить функцию удаления? А как их подсчитать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.04.2007, 21:30:24 |
|
||
|
Как убрать гиперлинки из текста в Ворде?
|
|||
|---|---|---|---|
|
#18+
Вот глупый!!! Сначала спрошу, потом думаю..... a = Selection.Range.Hyperlinks.Count For i = 0 To a - 1 Selection.Range.Hyperlinks(1).Delete Next i ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.04.2007, 21:49:56 |
|
||
|
Как убрать гиперлинки из текста в Ворде?
|
|||
|---|---|---|---|
|
#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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.05.2007, 21:04:25 |
|
||
|
|
start [/forum/topic.php?fid=61&gotonew=1&tid=2183016]: |
0ms |
get settings: |
5ms |
get forum list: |
8ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
44ms |
get topic data: |
5ms |
get first new msg: |
3ms |
get forum data: |
1ms |
get page messages: |
19ms |
get tp. blocked users: |
1ms |
| others: | 209ms |
| total: | 299ms |
| 0 / 0 |
