Here is the word macro code. The line in blue colour italics is mentioned to open the excel which has two columns 'Findtext' and 'replacetext'. I have more than 20 values to find and replace, so I am passing the values through an excel. After replacement of the values, I am not able to open up the excel "ref.xlsx". Please let me know if you need more information.
screenshot of the error message.
Sub Main()
Dim xl As Object 'Excel.Application
Dim wb As Object 'Excel.Workbook
Dim ws As Object 'Excel.Worksheet
Dim rng As Object 'Excel.Range
Dim cl As Object 'Excel.Range
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open("Downloads\ref.xlsx")
Set ws = wb.Sheets(1) '##Modify as needed
Set rng = ws.Range("A1", ws.Range("A29"))
For Each cl In rng
Call Macro1(cl.Value, cl.Offset(0, 1).Value)
Next
End Sub
---------------------------------------------------------------------------------------------
Sub Macro1(findText$, replaceText$)
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = findText
.Replacement.Text = replaceText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute
End Sub
