необходимо создать макрос в worde!

[wander_vafl9]

Необходим макрос по поиску чисел в word файле! макрос создается через vb в worde 2007! нашел пример с пробелами, но не смог его переделать. цифры должен считать за 1 даже если они такие: 1214, 3113, 12, 2. т.е. макрос не должен видеть различие между этими цифрами и считать каждую как 1 отдельную. очень нужна помощь. заранее спасибо за помощь!) (если можно полный код для вставки)

Sub probeli()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " {1;}"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

[wander_vafl9]

Нашел поиск по фамилии, помогите организовать поиск для чисел!!

With ActiveDocument.Range.Find
   .Text = "Галкин"
  Do While .Execute = True
     Счётчик = Счётчик + 1
  Loop
End With
MsgBox (Счётчик & " раз(а) встречается фамилия Галкин")

[Serge_Bliznykov]

если речь идёт исключительно о ЦЕЛЫХ числах, причём разделённых знаками препинания, тогда Вам может помочь такой код:

Sub Find1()
Dim Счётчик As Long
Счётчик = 0
With ActiveDocument.Range.Find
   .Text = "<[0-9]@>"
   .Replacement.Text = ""
        .Forward = True
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        
  Do While (.Execute = True) And (Счётчик < 500)
     Счётчик = Счётчик + 1
  Loop
End With
MsgBox ("найдено " & Счётчик & " чисел в тексте")

End Sub

этот код в такой фразе:
Now bububu size is 22, 34 before 100001112 after 1 2 test
найдёт 5 чисел

если же числа внутри текста 55aa7bb или же речь идёт о вещественных числах - тогда предложенный выше код работать не будет

[wander_vafl9]

Сообщение от Serge_Bliznykov

.Replacement.Text = ""
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True

Спасибо, то что нужно, но так как я познаю только эту часть, то хотел бы попросить объяснить код, который находится выше!)

[Sasha_Smirnov]

Кроме строки

.MatchWildcards = True

этот кусок вообще не нужен.

Но если интересно, замените

ActiveDocument.Range.Find

на

Selection.Find

и (после выполнения поиска и замены) нажмите Ctrl-h в документе Word — снятые галочки в открывшемся диалоге поиска соответствуют строкам с False, а установленная — строке с True: Нахождение цифр в скобках (рисунок).

.Replacement.Text = ""

соответствует пустому текстовому полю "Заменить на:". Кстати: число замен можно извлечь из недр Word: Где находится инфа о кол-ве замененных слов?

Сообщение от wander_vafl9

...я познаю только эту часть...

Познайте же и прочие: Постижение Word!

P/s: при поиске вручную, через Ctrl-h, необходимо сбросить параметры "Найти и заменить".