دوستان عزیز برای حل این مشکل از chrw(1740) استفاده کنید
یعنی هر جا حرف ی دیدید به جای آن chrw(1740) بگذارید
به عنوان مثال
docx.تبریز نام فایل باشد
dim a as string
docx.تبریز = a
((1740)chrw,"ی",a) replace=a
من انجام دادم حل شد