|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.10.2021, 10:30 | #1 |
Новичок
Джуниор
Регистрация: 01.10.2021
Сообщений: 2
|
Word VBA
Друзья, я с вопросом.
У меня есть макрос , который помечает все дубли гиперссылок в файле. Зелёным цветом оригиналы - желтым дубли. Макрос: 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 Вопрос - как мне после того как я избавился от дублей (вручную удалял кстати, может подскажете макрос на удаление дублей ?) , убрать зелёное это выделение ? |
05.10.2021, 16:08 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
ссылки как на скрине: каждая ссылка на новой строке ?
Скопировать в EXCEL и применить "Удалить Дубликаты" и без раскрашивания будет гуд
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA Word: поиск внутри файлов Word | Slonix | Фриланс | 2 | 01.01.2021 13:08 |
VBA Word,VBA Excel решить 2 задачи | fafolo4ka | Фриланс | 6 | 05.03.2012 01:15 |
VBA word | Lyolyalya47 | Microsoft Office Word | 0 | 05.10.2010 11:20 |
VBA в Word | jilik | Microsoft Office Word | 4 | 06.04.2010 18:27 |
word vba | Alexsey1991 | Помощь студентам | 0 | 25.12.2009 21:08 |