Макрос удаления ссылок на КонсультантПлюс

 

Макрос удаления ссылок, остающихся после копирования текста из системы КонсультантПлюс (как с сайта, так и из программы, установленной на компьютере). Удаление происходит только ссылок на КонсультантПлюс, на другие сайты ссылки остаются.

Текст макроса:

Sub Removehyperlinks()


For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
Set link = ActiveDocument.Hyperlinks(i)
If InStr(link.Address, "consultant") > 0 Then
link.Range.Font.Color = 0
link.Delete
End If
Next


End Sub

Утилита "Удаление ссылок на документы при копировании из КонсультантПлюс".

 

 

 

* * * *
ИНФОРМАЦИЯ
ООО "Лаборатория юридических исследований" - группа юристов и программистов, которым интересно эксперементировать в правовой сфере. Мы занимаемся разработкой программного обеспечения для юристов и анализом возможности автоматизации юридической деятельности.
* * * *
НОВОСТИ
24.02.2010
Ставка рефинансирования
Изменен размер ставки рефинансирования Банка России
26.11.2009
Снижение ставки рефинансирования
Банк России сообщил о снижении с 25 ноября 2009 года ставки рефинансирования и процентных ставок по отдельным операциям на 0,5 процентного пункта
19.11.2009
Автоматизация поиска в базе "Все Суды"
Предлагаем вашему вниманию приложение, демонстрирующее поиск информации в базе программы "Все Суды"

Подробнее...

12.10.2009
Арбитраж Инфо Mobile 1.5
Вышла новая версия сборника информации об Арбитражном суде Москвы "Арбитраж Инфо Mobile"
18.05.2009
Скины для программ
Программы, разработанные ООО "Лаборатория юридических исследований", теперь поддерживают скины.
<< 1 2 3 4 5 >>
Рейтинг@Mail.ru