|
|
|
Как убрать гиперлинки из текста в Ворде?
|
|||
|---|---|---|---|
|
#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&fpage=284&tid=2183016]: |
0ms |
get settings: |
7ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
25ms |
get topic data: |
6ms |
get forum data: |
1ms |
get page messages: |
16ms |
get tp. blocked users: |
1ms |
| others: | 205ms |
| total: | 274ms |
| 0 / 0 |
