Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.10.2021, 16:56   #11
AndruhaRef
Новичок
Джуниор
 
Регистрация: 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

Вопрос - как мне после того как я избавился от дублей (вручную удалял кстати, может подскажете макрос на удаление дублей ?) , убрать зелёное выделение ?
AndruhaRef вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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