Find and replace in word document

It's working! the last edits - Set wdDoc = wdApp.Documents.Open(newfn) - fixed the part where mystoryrange was = nothing, which i think was what was causing the error.

Thank you!