Я хочу удалить форматирование нижнего или верхнего индекса из пробелов.
Когда я запускаю приведенный ниже код, работает только верхняя функция, тогда как нижняя функция ничего не делает. Если я переключаю положения функций, все равно работает только верхняя функция. Функции практически идентичны, и я не знаю, с чего начать, чтобы это исправить. Пожалуйста, кто-нибудь может указать мне правильное направление?
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
'For subscripted spaces
Selection.HomeKey unit:=wdStory
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Text = "[A-z0-9] "
.Replacement.Text = ""
.MatchWholeWord = False
While .Execute
If oRng.Characters(2).Font.Subscript = True Then
oRng.Characters(2).Font.Subscript = False
End If
oRng.Collapse direction:=wdCollapseEnd
Wend
End With
'For superscripted spaces
Selection.HomeKey unit:=wdStory
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Text = "[A-z0-9] "
.Replacement.Text = ""
.MatchWholeWord = False
While .Execute
If oRng.Characters(2).Font.Superscript = True Then
oRng.Characters(2).Font.Superscript = False
End If
oRng.Collapse direction:=wdCollapseEnd
Wend
End With