In the opening Browse window, please find and select the documents you will find and replace text inside, and then click the OK button.

MsgBox 'Operation end, please view', vbInformationĤ. Replacement.Text = xReplaceStr 'Replace With Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True) XReplaceStr = InputBox('Replace with:', 'Kutools for Word', xReplaceStr) XFindStr = InputBox('Find what:', 'Kutools for Word', xFindStr) Filters.Add 'All WORD File ', '*.docx', 1įor Each stiSelectedItem In. Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker) VBA Code: Searching and replacing same content across multiple documents at one time Sub CommandButton1_Click()ĭim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code In the Microsoft Visual Basic for Applications window, click Insert > Module, then copy the following VBA code into the Module window. Press Alt + F11 to open the Microsoft Visual Basic for Applications window.Ģ. This tutorial will show you a tricky way to replace same content within multiple documents in Word at once.įind and replace texts across multiple word documents at the same time with VBA codeĮasily find and replace different texts across multiple documents at the same time with Kutools for Wordġ. How would it be easier for you to get it done quickly? Certainly, you can open those files one by one to replace the same content, but it will be time-consuming and troublesome.

If you have several dozen word files which contain the same content (such as Header, footer, some special words or number), and you need to replace the same content across those documents in Word. How to search and replace across multiple files in word?

Find word in multiple files