宏的自动化

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

对于您所描述的目标，应该使用一个密码来打开文档并仅向预期的读者提供该密码。不需要代码。