Шаблон разметки текста

[ckjybr]

Здравствуйте!Помоги с макросами на тему стеганография????????

[Sasha_Smirnov]

Сочинение на тему «Стеганография»?! Ну вот мой вариант: при нажатии альт-Q буквы первого абзаца заменяются на символы с кодом (по таблице символов), меньшим на единицу. При повторном нажатии — всё становится на место.

Sub SwitchCode()        'заменяет буквы в 1-м абзаце документа на предыдущие (по коду) и обратно'
Static odd As Boolean   'переменная, отслеживающая нечётные вызовы'

odd = Not odd
Selection.HomeKey wdStory               'курсор - в начало документа Word'

With Selection

    .MoveRight Extend:=wdExtend                 'выделили очередной символ'
    
    Do While Asc(.Text) <> 13                 'пока его код не код абзаца'
        Select Case odd
        Case True
            If .Text Like "[A-zА-я]" Then           'буквы в документе, ещё не подвергшиеся замене'
            .TypeText Text:=Chr(Asc(.Text) - 1)     'зашифрованные буквы'
            Else
            .MoveRight
            End If
        Case False
            If .Text Like "[@-yЏ-ю]" Then           'сдвинутые буквы - с кодом на 1 меньше исходного'
            .TypeText Text:=Chr(Asc(.Text) + 1)     'расшифрованные буквы'
            Else
            .MoveRight
            End If
        End Select
    .MoveRight Extend:=wdExtend
    Loop
    
End With
End Sub

Разумеется, столь простая шифровка — по плечу любому шифровальщику, да и программе Штирлиц, я думаю!