“对象'_global'的方法'工作表'在每次运行时都失败了”错误

I have written a VBA Sub (below) that is supposed to open all of the .docx and/or .xlsx files in a given directory, perform a find/replace operation, and then overwrite the original files with the new ones. This works as intended I have written a VBA Sub (below) that is suppos