vba替换word中全部文字

你可以使用 VBA 编写一个宏，然后在 Word 中运行该宏来替换全部文字。具体步骤如下：

1. 打开 Word 文档，按下 Alt + F11 进入 VBA 编辑器界面。
2. 在左侧的项目窗口中，双击 ThisDocument，打开该文档的 VBA 代码窗口。
3. 在代码窗口中输入以下代码：

Sub ReplaceAllText()
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "要替换的文字"
.Replacement.Text = "替换后的文字"
.Execute Replace:=wdReplaceAll
End With
End Sub

4. 将代码中的 "要替换的文字" 和 "替换后的文字" 替换为你需要的内容。
5. 按下 F5 运行该宏，即可替换全部文字。

注意：在替换时，如果需要保留原有格式，可以使用 rng.Find.Font 和 rng.Find.Replacement.Font 来设置字体格式。