MS-Word宏 - 替换 - 工作后确认

以下是一个示例代码，用于在 MS-Word 中使用宏进行替换并进行工作后的确认：

Sub ReplaceAndConfirm()
    ' 定义替换的文本和替换后的文本
    Dim findText As String
    Dim replaceText As String

    findText = "要替换的文本"
    replaceText = "替换后的文本"

    ' 执行替换操作
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = findText
        .Replacement.ClearFormatting
        .Replacement.Text = replaceText
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With

    ' 显示消息框，等待用户确认
    MsgBox "替换完成。", vbInformation
End Sub

使用说明：

1. 打开 MS-Word，按下 Alt + F11 打开 Visual Basic 编辑器。
2. 在左侧的项目窗格中，双击 ThisDocument，在右侧的代码窗口中粘贴上述代码。
3. 将 findText 和 replaceText 的值替换为您要查找和替换的文本。
4. 按下 F5 运行宏。
5. 替换完成后，将弹出一个消息框，提示您替换已完成。

请注意，此示例假定您正在运行宏的活动文档中进行替换操作。如果要在其他文档中运行此宏，请相应地更改 ActiveDocument。