Автозамена в буфере обмена

[Егор Александрович]

Добрый день. Прошу помощи, поскольку не силен в программировании.
Есть готовый макрос в VBA Word. Что он делает: Ищет в буфере обмена требуемые совпадения и заменяет на необходимые. P.S. использую для написания своих курсовых работ.
Вот код:
Sub s1()
txt = ClipboardText


'удаление пробела между точкой и запятой
txt = Replace(txt, ". ,", ".,")

'замена двойных пробелов на одинарные
txt = Replace(txt, " ", " ")
txt = Replace(txt, " ", " ")
txt = Replace(txt, " ", " ")

'расшифровка сокращений
txt = Replace(txt, " г.", " года")
txt = Replace(txt, " т.", "том")


SetClipboardText (txt)

End Sub

Function ClipboardText() 'чтение из буфера
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.GetFromClipboard
ClipboardText = .GetText
End With
End Function

Sub SetClipboardText(ByVal txt$) 'запись в буфер
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText txt$
.PutInClipboard
End With
End Sub
Макрос прикреплен в файле "Автозамена". Там есть пример. Работает так: выделяете все, далее ctr+x, далее запускаете макрос, далее вставляете.
Подскажите что нужно дописать, чтобы он умел заменять на текст с различным регистром (индексами). Например: "x2" заменял на "x" в квадрате (2 в верхнем индексе).
Такой код пишет word при записи:Порядок действий: Жмем Home, далее Right, Shift+End, Ctrl+= (Ctrl+Shift+=).
Верхний индекс:

Sub Макрос1()
'
' Макрос1 Макрос
'
'
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Superscript = wdToggle
End Sub
Пример в прикрепленном документе: "Верхний индекс"
Нижний индекс:
Sub Макрос2()
'
' Макрос2 Макрос
'
'
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Subscript = wdToggle
End Sub
Пример в прикрепленном документе: "Нижний индекс"
P.S. Поиск в списке символов - не выход, поскольку вместо "2" может быть любая цифра, буква как английского алфавита, так и русского.
Возможно ли это сделать? Если да, то сколько это будет стоить?

[Sasha_Smirnov]

Сообщение от Егор Александрович

Жмем Home, далее Right, Shift+End, Ctrl+= (Ctrl+Shift+=).

Пример в прикрепленном документе: "Нижний индекс"
P.S. Поиск в списке символов - не выход, поскольку вместо "2" может быть любая цифра, буква как английского алфавита, так и русского.

Возможно ли это сделать? Если да, то сколько это будет стоить?

Посмотрите-ка пока лучше сюда: http://www.cyberforum.ru/ms-word/thread332837.html#11 (Busine2012) и сюда: http://www.cyberforum.ru/ms-word/thread910587.html#16 (Казанский).