RegEx найти единицы измерения в конце формулы не отделенные пробелом

Sub заменить_точки_на_запятые()
 
Set oDoc = ActiveDocument
 
Set oRng = oDoc.Application.Selection.Range
 
For Each M In oRng.OMaths
'Debug.Print M.Range.text
 
'меняем точку на запятую
               With M.Range.Find
                    .ClearFormatting
                    .Replacement.ClearFormatting
                    .Forward = True
                    .text = "([0-9]).([0-9])"
                    .Replacement.text = "\1,\2"
                    .Wrap = wdFindContinue
                    .MatchWildcards = True
                    .Execute replace:=2
                End With
                
Next
 
End Sub

'...
With M.Range.Find   'Ваш код
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .text = "([0-9]).([0-9])"
    .Replacement.text = "\1,\2"
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Execute replace:=2
End With                'Ваш код
 
With M.Range.Find       'копия Вашего кода
    '...
    .text = "([0-9]).([!0-9])>"
        'этот шаблон означает - искать место между цифровым [0-9] и нецифровым [!0-9] символами
        'с конца > строки. (...) означают - найденное сгруппировать. Т.к. две пары скобок, то
        'исходная строка соответственно попадет в две группы, по обе стороны от искомого места...
    .Replacement.text = "\1 \2"     'между \1 \2 должен быть пробел
        'что означает - нужно при замене вставить найденные группы \1 и \2, но между ними
        'вставить что-то, в данном случае пробел...
    '...
End With                'копия Вашего кода
 
With M.Range.Find       'еще копия Вашего кода
    '...
    .text = "([0-9])(%.)"
    .Replacement.text = "\1 \2" 'между \1 \2 - пробел
    '...
End With                'еще копия Вашего кода
'...

Set oDoc = ActiveDocument
 
Set oRng = oDoc.Application.Selection.Range
 
For Each M In oRng.OMaths
'M.Linearize
Debug.Print M.Range.text
 
'меняем точку на запятую
               With M.Range.Find
                    .ClearFormatting
                    .Replacement.ClearFormatting
                    .Forward = True
                    .text = "([0-9]).([0-9])"
                    .Replacement.text = "\1,\2"
                    .Wrap = wdFindContinue
                    .MatchWildcards = True
                    .Execute replace:=2
 
 'этот шаблон означает - искать место между цифровым [0-9] и нецифровым [!0-9] символами
                    .text = "([0-9]).([!0-9])>"
                    .Replacement.text = "\1 \2"
                    .Execute replace:=2
                    
                    .text = "([0-9])(%.)"
                    .Replacement.text = "\1 \2" 'между \1 \2 - пробел
                    .Execute replace:=2
                    
            End With
                    
 
    '\=([0-9\(\)\.,]*)
Next
 
'For Each M In oRng.OMaths
'M.BuildUp
'Next

Selection.Find.ClearFormatting

With Selection.Range.Find
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Text = "([0-9]).([0-9])"
        .Replacement.Text = "\1,\2"
        .Execute Replace:=2
        .Text = "([0-9])([!0-9])>"
        .Replacement.Text = "\1 \2"
        .Execute Replace:=2
        .Text = "([0-9])(%.)"
        .Replacement.Text = "\1 \2"
        .Execute Replace:=2
End With