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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.06.2019, 09:39   #11
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

макрос втупую перебирает все числа (в виде строк) от 0 до 20, поиск по целым словам.
плюсы - работает.
минусы - вещественные числа рассматриваются как отдельные элементы.
на большом документе, скорее всего, будет тормозить.


пример.
test_numbers.docm.zip

код макроса
Код:
Sub HighlightNumbers()

Dim range As range
Dim i As Long
Dim TargetList

TargetList = Array("0", "1", "2", "3", "4", "5", "6", "7", _
   "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20") ' put list of terms to find here

For i = 0 To UBound(TargetList)

Set range = ActiveDocument.range

With range.Find
.Text = TargetList(i)
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

Do While .Execute(Forward:=True) = True
range.HighlightColorIndex = wdYellow

Loop

End With
Next

End Sub
Serge_Bliznykov вне форума Ответить с цитированием
Старый 11.06.2019, 09:45   #12
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
018 попадает в промежуток?
кстати, в коде, который я привёл, в этом отношении строго
01 00 018 00005 не попадают.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 11.06.2019, 10:07   #13
ac1-caesar
Форумчанин
 
Регистрация: 26.07.2013
Сообщений: 134
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
018 попадает в промежуток?
В принципе попадает если возможно идентифицировать как число 18.
ac1-caesar вне форума Ответить с цитированием
Старый 11.06.2019, 10:11   #14
ac1-caesar
Форумчанин
 
Регистрация: 26.07.2013
Сообщений: 134
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
макрос втупую перебирает все числа (в виде строк) от 0 до 20, поиск по целым словам.
плюсы - работает.
Спасибо за пример, буду пробовать.
ac1-caesar вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[РЕШЕНО] Prolog: Вычислить значеник функции y=x^2+6*x-5 в промежутке от N до 2*N с шагом 2 . N - натуральное число, вводимое с клавиатуры AnnaSub Помощь студентам 2 22.05.2019 10:52
На заданном числовом промежутке требуется найти все числа, являющиеся парой близнецов ZigaBr0 Паскаль, Turbo Pascal, PascalABC.NET 1 29.08.2016 15:41
На заданном числовом промежутке требуется найти все квадратные числа с убывающими слева направо цифрами / Pascal ABC Veronika_13 Помощь студентам 22 04.07.2014 22:27
Pascal.Найти в промежутке от a до b число, с максимальной суммой делителей. I3ECJI0 Помощь студентам 2 16.05.2012 15:39