|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.10.2021, 16:56 | #11 |
Новичок
Джуниор
Регистрация: 01.10.2021
Сообщений: 2
|
Вопрос знатокам
Друзья, я с вопросом.
У меня есть макрос , который помечает все дубли гиперссылок в файле. Зелёным цветом оригиналы - желтым дубли. Макрос: Sub highlightdup() Dim I, J As Long Dim xRngFind, xRng As Range Dim xStrFind, xStr As String Options.DefaultHighlightColorIndex = wdYellow Application.ScreenUpdating = False With ActiveDocument For I = 1 To .Paragraphs.Count - 1 Set xRngFind = .Paragraphs(I).Range If xRngFind.HighlightColorIndex <> wdYellow Then For J = I + 1 To .Paragraphs.Count Set xRng = .Paragraphs(J).Range If xRngFind.Text = xRng.Text Then xRngFind.HighlightColorIndex = wdBrightGreen xRng.HighlightColorIndex = wdYellow End If Next End If Next End With End Sub Вопрос - как мне после того как я избавился от дублей (вручную удалял кстати, может подскажете макрос на удаление дублей ?) , убрать зелёное выделение ? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA WORD При наборе текста, автоматическая вставка изображения | fearnewstyle | Microsoft Office Word | 1 | 13.11.2011 08:05 |
Удаление текста из документа Word | a_n_n_a | Общие вопросы Delphi | 3 | 01.08.2011 14:43 |
Vba excel Удаление Текста | HelperAwM | Microsoft Office Excel | 4 | 19.06.2010 23:55 |
Удаление всех гиперссылок | БуреВестник | Microsoft Office Word | 6 | 16.10.2009 10:05 |
удаление гиперссылок | Gambler | Microsoft Office Word | 0 | 30.10.2006 23:23 |