Find and Replace whole folder content

Leslie · #8 03-01-2020, 08:58 PM

Code:

Sub FnR(Rng As Range)
Dim strFindText As String, strReplaceText As String, nSplitItem  As Long
strFindText = "northenn,westenn"
strReplaceText = "northern,western"
With Rng.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .Wrap = wdFindContinue
  For nSplitItem = 0 To UBound(Split(strFindText, ","))
    .Text = Split(strFindText, ",")(nSplitItem)
    .Replacement.Text = Split(strReplaceText, ",")(nSplitItem)
    .Execute Replace:=wdReplaceAll
  Next
End With
End Sub

Replaced 'Replace' with 'strReplaceText' in the above code (executes fine now).

Perfect code!

Thanks dear Paul Edstein @macropod.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Static Folder Locations to Automate a Find and Replace using Word VBA	rmoyar	Word VBA	9	01-29-2020 02:35 PM
Need to find/replace text in many word files - but text is in embedded word files	semple.13	Word VBA	5	11-03-2015 01:20 PM
Find & replace footer text in a folder of Word 2010 documents	kennethc	Word	3	03-28-2015 02:49 AM
VBA Batch Find & Replace for all MSOffice extensions, to replace File Name and Content of the File	QA_Compliance_Advisor	Word VBA	11	09-11-2014 11:51 PM
Macro to replace SSN in all files within a folder	caj1980	Word VBA	7	09-11-2014 04:17 PM