1

Тема: Запомнить действие, которое выполняет макрос

Доброго времени суток. Появилась такая необходимость - повторить некоторое количество действий, который произвёл макрос. Макрос находит конкретные символы и расширяет область выделения до слова. Далее он просматривает каждый символ этого слова и, в зависимости от свойств символа, совершает действия. Приведу участок кода, чтобы было понятнее (х - количество выделенных символов:

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("Лтн_Под")?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

2

Re: Запомнить действие, которое выполняет макрос

Попробуйте использовать функцию.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3

Re: Запомнить действие, которое выполняет макрос

Alex_Gur пишет:

Попробуйте использовать функцию.

А вы не знаете, можно при поиске и замене сохранить стиль каждого символа (они разные) при wdReplaceAll? Или применить PasteFormat при wdReplaceAll?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

4

Re: Запомнить действие, которое выполняет макрос

А вы не знаете, можно при поиске и замене сохранить стиль каждого символа (они разные) при wdReplaceAll? Или применить PasteFormat при wdReplaceAll?

К сожалению, не знаю. Думаю, что нельзя.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.