We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim Doc_to_Open As string Dim old_First_Name as String Dim new_First_Name as String Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True Doc_To_Open = Sheets("Front Sheet").ComboBox2.Value Set wrdDoc = wrdApp.Documents.Open(Full_Doc_Name) With wrdDoc.find .text =Old_First_Name .replacement.text = New_First_name end with Old_first_name = new_first_name
Join the community of 500,000 technology professionals and ask your questions.