Автоматизация макросов

Question

У меня есть документ Word, и я хочу сделать с ним следующее:

1. Выберите часть документа при открытии документа Word (скажем, на страницах 40–45).
2. Перевернуть текст в выбранной области.
3. Получить текст снова, как это было до открытия, когда я закрываю документ.

У меня есть этот код, который переворачивает текст:

Sub ReverseSelectedWords()
    Dim i As Integer
    Dim oWords As Words
    Dim oWord As Range

    Set oWords = Selection.Range.Words

    For i = 1 To oWords.Count Step 1
        Set oWord = oWords(i)   

        Do While oWord.Characters.Last.Text = " "
            Call oWord.MoveEnd(WdUnits.wdCharacter, -1)
        Loop

        Debug.Print "'" & oWord.Text & "'"
        oWord.Text = StrReverse(oWord.Text)
    Next i
End Sub

Answer 1

Для того, что вы назвали своей целью, было бы гораздо разумнее применить пароль для открытия документа и предоставить этот пароль только предполагаемым читателям. Код не требуется.