First Time poster here, thank you all for the help in advance. I am very stuck on this situation. I have modified (started with Do While - lack of experience = dead end) several times.

This is the closest I think I have been, but basically I have truncated the code a bit... There are 100 different " xx BF" replacements that will need to happen on ~ 100 different Folder locations (want to hit the button and retire for the night).

immediate window indicates

1
2
1
2
2
2

So it hits the first Debug.Print = 1, then doesn't print the file.name but still proceeds and prints the second debug.print i = 2 (after the ++)

But then goes into the next for loop? There are 10 .doc files in the listed file path for testing

[Sub bfMassReplaceLoopTest()

Dim wApp As Word.Application
Dim wDoc As Word.Document
Dim mySource As Object
Dim myVar(0 To 2000) As String

Application.ScreenUpdating = False
On Error Resume Next
Set mySource = obj.GetFolder.Items.Item.path("C:\Users\rmoyar\Des ktop\TestEnvironment\Macro Testing\Test 1")

i = 1

For Each file In mySource.Files 'loop through the directory
If Len(file.Name) > 0 And InStr(1, file.Name, "$") = 0 Then '$ is temp file mask
Debug.Print i

myVar(i) = file.Name
i = i + 1

Debug.Print file.Name
Debug.Print i
End If
Next file

j = 1

For j = 1 To i Step 1
Debug.Print j
Debug.Print i


Set Doc = Documents.Open(FileName:=myVar(j), ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, Visible:=True, Format:=wdOpenFormatAuto, XMLTransform:="")
Windows(myVar(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting


With Selection.Find
.Text = " 120 BF" 'Find What
.Replacement.Text = " 125 BF" 'Replace With
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.Close SaveChanges:=True
Next
Application.ScreenUpdating = True
MsgBox "Task Complete, please check files", vbInformation
Debug.Print " "
Debug.Print " "
Debug.Print " "
Debug.Print " "
End Sub
][/CODE]

Why not see if this works:
VBA Find & Replace

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Look carefully at this code and step through it line by line to work out what each line is doing. Your code sample shows a lot of useless activities going on. There are some key differences in this code when compared to yours and those differences can be important.
Note that this code is only working on a single folder. You mentioned wanting this to work over ~100 folders but you need to make sure one folder is being done correctly first.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

If the other 99 folders are sub-folders of the first then the add-in posted earlier may still work.

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

See also: https://www.msofficeforums.com/word-...ocx-files.html

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

First off, thank you all for your assistance.

@guessed...

I had a question about the fso.GetFolder. If I were to add a block of code after the For loop, and changed the mySource to

Set mySource = fso.GetFolder("C:\Users\rmoyar\Desktop\TestEnviron ment\Macro Testing\Test 2")

And then reran the for loop, would that produce the same functionality after completing folder 'Test 1' for 'Test 2'?

I think you and I were having the same ideas. I was planning on making it work for one, and then calling separate subs for each task. Was planning on making an array that would house the paths of each folder location, and step through that (let's say in a k variable incremental fashion), and pass that back as the variable mySource in the future development, and then in the main sub would call another sub, call it the 'loopSub' that would do the For each file in mySource.Files.

this is certainly exciting for me, as it is well beyond capabilities I have done before, and I am more in favor of learning how it works so that I may apply these skills to other things more readily. I saw the plug-in that @gmaxey mentioned, and again, I think I would prefer to learn myself (may in the future recommend this to others, but for now just wanted to take this as an educational opportunity).

Again, thank you all!

TL;DR version - if I have another line that is mySource = fso.GetFolder(<Test 2\>) will that then process Test 2 files after Test 1 is completed?

I opened a document in the folder after getting the MsgBox, and it has not been updated... still not sure why, but getting the same error.

Immediate Window indicates all files, and correct file.Name (sans extension).

I am under the impression that the .docx shouldn't matter because the wildcard used.

Further Update, when downloading and attempting to run the VBA Find and Replace tool linked, I run Windows 10, Word 2019. It prompts me with an error that the macro can't be found or has been disabled due to security settings (googled and tried all suggestions with renaming/etc.)

Hmm, that could be a Office 64 issue and I don't have it. I've looked at the declarations and I think have them updated for Office 64 bit application. Please download the package again and let me know. The date of the file should be 1/29/2020.

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

The find and replace tool that Greg has pointed you at is by far the easiest way to do this. Hopefully you can get that working.

As a learning exercise, read carefully the thread that Macropod pointed you at, paying careful attention to the evolution of the requirements and how that changed the code. Copy the separate code blocks and step through the code each time to learn how it works and what each loop is progressing through.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia