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

 

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

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

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

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

 

 

 

* * * *
ИНФОРМАЦИЯ
ООО "Лаборатория юридических исследований" - группа юристов и программистов, которым интересно эксперементировать в правовой сфере. Мы занимаемся разработкой программного обеспечения для юристов и анализом возможности автоматизации юридической деятельности.
* * * *
НОВОСТИ
25.12.2011
С 26.12.2011 ставка ЦБ РФ 8 %
Обновиласьс 26 декабря 2011 года ставка рефинансирования ЦБ РФ - уменьшилась до 8 % годовых. Не забудьте при расчете процентов.
19.11.2011
Новая версия программы Реестр членов ТСЖ
Новая версия программы Реестр членов ТСЖ (2.0) стала платной в связи с большим количеством новых, нужных для ТСЖ, функций.
05.10.2011
Массовая печать документов
Наша новая программа для печати большого количества документов Word.
28.09.2011
Очистка текста из КонсультантПлюс
Новая утилита для очистки текста - удаления ссылок, остающихся после копирования текста из КонсультантПлюс.
03.05.2011
Мы открыли интернет-магазин
Пробуем наш новый интернет-магазин некоторых юридических программ и образцов правовых документов: LegalPages.ru.
<< 1 2 3 4 5 >>
Рейтинг@Mail.ru