Тема: Запомнить действие, которое выполняет макрос
Доброго времени суток. Появилась такая необходимость - повторить некоторое количество действий, который произвёл макрос. Макрос находит конкретные символы и расширяет область выделения до слова. Далее он просматривает каждый символ этого слова и, в зависимости от свойств символа, совершает действия. Приведу участок кода, чтобы было понятнее (х - количество выделенных символов:
For NumberOne = 1 To x
If Selection.Characters(NumberOne) Like "[A-Za-z]" And Selection.Characters(NumberOne).Style = ActiveDocument.Styles("Лтн") Then
GoTo Line00
ElseIf Selection.Characters(NumberOne) Like "[A-Za-z]" And Not Selection.Characters(NumberOne).Style = ActiveDocument.Styles("Лтн") Then
Selection.Characters(NumberOne).Style = ActiveDocument.Styles("ЛТН")
GoTo Line00
ElseIf Selection.Characters(NumberOne) Like "[A-Z, a-z]" And Selection.Characters(NumberOne).Style = ActiveDocument.Styles("Лтн_Под") Then
GoTo Line00
ElseIf Selection.Characters(NumberOne) Like "[A-Z, a-z]" And Selection.Characters(NumberOne).Font.Subscript = True And _
Not Selection.Characters(NumberOne).Style = ActiveDocument.Styles("Лтн_Под") Then
Selection.Characters(NumberOne).Style = ActiveDocument.Styles("Лтн_Под")
GoTo Line00
ElseIf Selection.Characters(NumberOne) Like "[А-ЯЁа-яё]" And Selection.Characters(NumberOne).Font.Subscript = True Then
Selection.Characters(NumberOne).Style = ActiveDocument.Styles("Под")
GoTo Line00
End If
Далее необходимо будет найти слова, как то, которое выделено, и совершить действия над символами аналогичные проведенным над базовым словом. Так вот можно ли добавить в память действия, выполненные макросом, чтобы было что-то навроде Действие(NumberOne) = Selection.Characters(NumberOne).Style = ActiveDocument.Styles("Лтн_Под")?