word如何替换所有的词

1.同一个word里面怎么一次性把多个不同的词替换成各自不同的词

把下面的vbA运行一下就可以了，哈哈

Sub 查找替换带输入框（）

'

' 查找替换带输入框 Macro，只能以逗号分隔

' 宏在 2019-10-4 由 微软用户 创建

'

'Update by ExtendOffice 2018/10/25

Dim xFind As String

Dim xReplace As String

Dim xFindArr, xReplaceArr

Dim I As Long

Application.ScreenUpdating = False

xFind = InputBox("Enter items to be found here,seperated by comma： "， "查找替换带输入框磊磊")

xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")

xFindArr = Split(xFind, ",")

xReplaceArr = Split(xReplace, ",")

If UBound(xFindArr) <> UBound(xReplaceArr) Then

MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"

Exit Sub

End If

For I = 0 To UBound(xFindArr)

Selection.HomeKey Unit:=wdStory

With Selection.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = xFindArr(I)

.Replacement.Text = xReplaceArr(I)

.Format = False

.MatchWholeWord = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Next

Application.ScreenUpdating = True

End Sub

'多词替换为一个词，只能以英文逗号分隔

Sub 多词替换为一个词（）

Dim xFind As String

Dim xReplace As String

Dim arr

Application.ScreenUpdating = False

xFind = InputBox（"输入替换的词语以英文逗号分隔"， "多词替换为一个词"）

xReplace = InputBox("Enter new items here输入新的目的词语， only one word： "， "多词替换为一个词")

xFindArr = Split(xFind, ",")

arr = xFindArr '旧语句arr = Array(xFind)

For I = 0 To UBound(arr)

With Selection.Find

.Text = arr(I)

.Replacement.Text = xReplace

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchByte = True

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Next

End Sub