Архив форумов ЦИТФорума

[Glum]

Вопрос в следующем:
в тексте есть подобные участки:
м^3, см^2, b^n, 10^-8 и т.д.
Так вот, каким образом можно осуществить замену куска ^#### на #### только верхним индексом?
Вопрос состоит больше в том, как составить корректное регулярное выражение.

With Sel.Find
.ClearFormatting
.Text = "^^([0-9A-Za-z-]@)"
.MatchWildcards = True
.Replacement = "\1"
Do
If .Execute Then
rng.Font.Superscript = True
Else: Exit Do
End If
Loop
End With

Отказывается работать напрочь.