Есть ли возможность перед всеми числами (именно числами, а не цифрами) в тексте поставить определённый символ?
Необходимо, к примеру, чтобы такой текст:
"Слова слова 1548 слова слова 545 слова."
Преобразовался в:
"Слова слова #1548 слова слова #545 слова."
То же самое можно сделать с помощью 'Найти и заменить', т.е. без макроса.
Макрос работает только с целыми числами. То есть с дробными, в которых есть запятая или точка, не работает.
Также в числе не должно быть пробелов между разрядами.
Знак подставляется в этой строке:
.Replacement.Text = "#\1"
Sub Макрос()
With ActiveDocument.Range.find
.Text = "([0-9]{1;})"
.Replacement.Text = "#\1"
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
MsgBox "Готово.", vbInformation
End Sub
Большое спасибо!
Всё работает идеально.