один макрос для двух обратных команд замены

[caute]

возможно ли написать единый макрос для замены, который при первом клике менял бы X на Y, а при втором - обратно: Y на X?
(для осуществления и отмены разных временных операций)

[Вождь]

А в чем проблема? Запомните номер клика в переменной, например так:

Sub A()
Static B As Boolean
    If B Then ' второй запуск
        MsgBox "Y => X"
    Else ' первый запуск
        MsgBox "X <= Y"
    End If
    B = Not B
End Sub

[caute]

в таком виде работает только "первый запуск" (

[Вождь]

Сообщение от caute

...первый запуск...

Чего первый запуск? Похоже, тема вами не раскрыта.

Например, если на мой макрос повесить кнопку, то работать будет то посинения

[caute]

конкретно вот - может, что не так, не журите чайника:

Sub том_страница()
 frepl30 ". Т. ", ", т." & Chr(160)
 frepl30 ". С. ", ", с." & Chr(160)
 frepl30 ". Ч. ", ", ч." & Chr(160)
 frepl30 ", Т. ", ", т." & Chr(160)
 frepl30 ", С. ", ", с." & Chr(160)
 frepl30 ", Р. ", ", p." & Chr(160)
End Sub
Sub том_страница_заглавные()
 frepl30 ". т. ", ", Т." & Chr(160)
 frepl30 ". с. ", ", С." & Chr(160)
 frepl30 ". ч. ", ", Ч." & Chr(160)
 frepl30 ", т. ", ", Т." & Chr(160)
 frepl30 ", с. ", ", С." & Chr(160)
 frepl30 ", p. ", ", Р." & Chr(160)
End Sub
Sub тома_и_страницы()
Static B As Boolean
    If B Then ' том_страница_заглавные
    MsgBox "Y => X"
    Else ' том_страница
    MsgBox "X <= Y"
    End If
    B = Not B
End Sub

[Вождь]

Если так, то будет поочередно запускать ваши макросы:

Sub тома_и_страницы()
Static B As Boolean
    If B Then
        Call том_страница_заглавные
    Else
        Call том_страница
    End If
    B = Not B
End Sub

[caute]

так работает, спасибо, добрый Вождь!
познавательный вопрос: какую строку надо добавить в макрос, чтобы после его исполнения курсор оставался на том же месте, а не скакал в начало документа? (как в этом макросе - после обработки проматывает в начало дока)

Еще проблемки вскрылись:
1. если замена происходит в сносках (постраничных или концевых - без разницы) вида:
Иванов И.А. Сочинения, т. 3, с. 44
то после работы макроса ВСЯ строка почему-то становится курсивной.

2. А если курсор стоит в тексте, то концевые сноски макросом не обрабатываются.

[Вождь]

Сообщение от caute

...какую строку надо добавить в макрос...

В какой макрос? Вы выложили только кусок кода, который не делает ничего, кроме запуска каких-то неизвестных макросов. Обсуждать просто нечего.

[caute]

ну вот, только заменил последнюю часть:

Sub том_страница()
 frepl30 ". Т. ", ", т." & Chr(160)
 frepl30 ". С. ", ", с." & Chr(160)
 frepl30 ". Ч. ", ", ч." & Chr(160)
 frepl30 ", Т. ", ", т." & Chr(160)
 frepl30 ", С. ", ", с." & Chr(160)
 frepl30 ", Р. ", ", p." & Chr(160)
End Sub
Sub том_страница_заглавные()
 frepl30 ". т. ", ". Т." & Chr(160)
 frepl30 ". с. ", ". С." & Chr(160)
 frepl30 ". ч. ", ". Ч." & Chr(160)
 frepl30 ", т. ", ". Т." & Chr(160)
 frepl30 ", с. ", ". С." & Chr(160)
 frepl30 ", p. ", ". Р." & Chr(160)
End Sub
Sub тома_и_страницы()
Static B As Boolean
    If B Then
        Call том_страница_заглавные
    Else
        Call том_страница
    End If
    B = Not B
End Sub

[Вождь]

Сообщение от caute

ну вот...

И что же тут такого, что вы не выкладывали раньше Не хотите выкладывать код, опишите, что ваши макросы делают. В частности, макрос frepl30.