In the first Kutools for Word dialog box, enter the multiple words you will find and replace into the textbox, and separate them with comma, then click the OK button. MatchWholeWord = False End With Replace:=wdReplaceAll Next Application.ScreenUpdating = True End SubĤ. VBA code: Find and replace multiple words at the same time in Word Sub FindAndReplaceMultiItems() 'Update by ExtendOffice 5 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: ', 'Kutools for Word') 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. Then copy below VBA code into the Module window. In the Microsoft Visual Basic for Applications window, click Insert > Module. Open the Word document you want to find and replace multiple words at the same time, then press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.Ģ. Please do as follows to find and replace multiple word at the same time in a Word document.ġ. In this article, we are talking about a VBA method to find and replace multiple different words at the same time in Word document.įind and replace multiple words at the same time in Word with VBA codeĮasily find and replace multiple words at the same time in Word with an amazing feature But if you want to find and replace different words at the same time, this build-in function can’t help.

Word provides a Find and Replace function to find all instances of a word or phrase and replace them with a new word at the same time.

Microsoft word find and replace email