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

 

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

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

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

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

 

 

 

* * * *
ИНФОРМАЦИЯ
ООО "Лаборатория юридических исследований" - группа юристов и программистов, которым интересно эксперементировать в правовой сфере. Мы занимаемся разработкой программного обеспечения для юристов и анализом возможности автоматизации юридической деятельности.
* * * *
НОВОСТИ
05.01.2011
Обновление LRL Подсчет дней
Обновлены данные программы LRL Подсчет дней и исправлены незначительные ошибки.
09.10.2010
LegalReference (ЮристСправочник)
Добавлена информация о программе LegalReference - ЮристСправочник и о com-объекте для работы с данными, содержащимися в этой программе.
11.05.2010
Обновление ЮристАссистент
Выпущена новая версия программы ЮристАссистент - 6.8.50.7. Скачать новую версию можно на сайте программы ЮристАссистент.
01.04.2010
Изменен размер ставки рефинансирования Банка России
С 29 марта 2010 года ставка рефинансирования Банка России устанавливается в размере 8,25 процента годовых
24.02.2010
Ставка рефинансирования
Изменен размер ставки рефинансирования Банка России
<< 1 2 3 4 >>
Rambler's Top100 Рейтинг@Mail.ru