найти и заменить

[smallfish]

добрый день!

Подскажите, как найти и выделить все числа и все цифры в числах во всем документе?

спасибо

[Sasha_Smirnov]

Ответ кроется в чём-то подобном вот этому.

Там приложен Собственно.doc с кодом, выделяющим русские буквы.

А вот все числа выдеть труднее: вних ведь м. б. и точка, и дробная черта...

[Sasha_Smirnov]

Sub CiphersSeekWithTimer()
Dim swMilliseconds As New StopWatch: swMilliseconds.StartTimer 'вкл. таймера'
    
    Selection.HomeKey wdStory 'переход в начало документа'
    
    With Selection.Find
    .ClearHitHighlight
        .MatchWildcards = True
        .Text = "[0-9]" 'шаблон для поиска арабских цифр'
        .HitHighlight .Text 'подсветка этих цифр'
    End With
    
    MsgBox "Подсчёт занял " & Format(swMilliseconds.EndTimer / 1000, "0.000 секунды."), vbInformation
End Sub