Find And Replace Multiple Words in Word Document

How To find and replace multiple words at the same time in a Word document using VBA.

Find And Replace Multiple Words in Word Document

Here’s the complete VBA code.:

Sub FindAndReplaceMultipleWordsInDocument()
Dim strFind As String, strReplace As String
Dim strFindArr, strReplaceArr

Dim i As Long

Application.ScreenUpdating = False

strFind = InputBox(“Enter words to find separated by a comma “, “Enter words to find”)
strReplace = InputBox(“Enter the new replacement words separated by a comma.”, “Enter Replacing Words”)

strFindArr = Split(strFind, “,”)
strReplaceArr = Split(strReplace, “,”)

If UBound(strFindArr) <> UBound(strReplaceArr) Then
MsgBox “find and Replace words must be equal.”, vbInformation, “Find Replace”
Exit Sub
End If

For i = 0 To UBound(strFindArr)
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With Selection.Find
.Text = strFindArr(i)
.Replacement.Text = strReplaceArr(i)
.MatchWholeWord = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Application.ScreenUpdating = True

End Sub

Published by

Dinesh Kumar Takyar

Welcome to! My aim is to help you learn MS Excel including VBA. I always felt that a good way to learn something was to find solutions to problems in that domain. That is why I share these Excel videos with you. Mostly these are questions asked during my corporate training sessions. I've been training individuals and companies in computers since 1991. I did my B. Sc. (Vordiplom), M. Sc. (Diplom) and Ph.D. (Dr. rer. nat.) from Hamburg, Germany. The best thing about solving some of my visitor's questions is that I also gain new insights. For more Excel VBA solutions you may like to visit my YouTube channel: For a structured Excel VBA training course online you can visit:

One thought on “Find And Replace Multiple Words in Word Document”

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.