word如何用vba编程将重复同一内容替换为不同内容？

Question

用VBA编一个程序，将word文档中的重复同一内容批量替换为不同内容。例如文档中“白日依山尽”重复出现四次，现在将第一处的替换为“白日依山尽”，第二处替换为“黄河入海流”第三处替换为“欲穷千里目”，第四处替换为“更上一层楼”。要求在代码中替换的内容是填在一起的，每一项中间用个什么符号隔开，不要每一项填在代码中的不同位置，那样和一个一个查找替换也没分别了。求大佬指点

Answer 1

Sub 替换()
On Error GoTo xxx:
Dim Rng As Range, n&, arr, a$
a = ActiveDocument.Content.Text
Set Rng = ActiveDocument.Content
With Rng.Find
.ClearFormatting
.Replacement.ClearFormatting
arr = Array("白日依山尽", "黄河入海流", "欲穷千里目", "更上一层楼")
Do While .Execute(findtext:="白日依山尽")
Rng = arr(n)
Rng.SetRange Rng.End, ActiveDocument.Content.End
n = n + 1
Loop
End With
GoTo yyy:
xxx:
MsgBox "文档中词条“白日依山尽”数目超出4个！"
yyy:
MsgBox "转换完成！"
End Sub