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

 

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

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

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

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

 

 

 

* * * *
ИНФОРМАЦИЯ
ООО "Лаборатория юридических исследований" - группа юристов и программистов, которым интересно эксперементировать в правовой сфере. Мы занимаемся разработкой программного обеспечения для юристов и анализом возможности автоматизации юридической деятельности.
* * * *
НОВОСТИ
12.04.2014
Новый проект eLawyering
Запускаем новый проект eLawyering.ru. Следите за новостями
03.01.2013
МРОТ с 01.01.2013 составляет 5205 рублей
ФЗ 03.12.2012 N 232-ФЗ
03.06.2012
Новая версия Реестра членов ТСЖ (3.3)
Обновлена программа для ведения реестра собственников и членов ТСЖ.
20.01.2012
Новая версия Реестра членов ТСЖ (3.0)
Вышла новая версия программы Реестр членов ТСЖ. Добавлены данные о собственнике, добавлены документы, которые могут быть созданы, в т.ч. по общим собраниям в МКД, разнообразный анализ данных.
25.12.2011
С 26.12.2011 ставка ЦБ РФ 8 %
Обновиласьс 26 декабря 2011 года ставка рефинансирования ЦБ РФ - уменьшилась до 8 % годовых. Не забудьте при расчете процентов.
<< 1 2 3 4 >>
Rambler's Top100 Рейтинг@Mail.ru