نقل قول نوشته شده توسط barnamenevis76 مشاهده تاپیک
ممنون از شما .
مشکل من حل شد . البته با شئی word !


strSrcFile = "c:\utf8.txt"

strDstFile = "c:\ansi.txt"

strFind = "~"

strReplace = ","

objWord = CreateObject("Word.Application")

RC = objWord.Documents.Open(strSrcFile)





objWord.Selection.Find.Text = strFind

objWord.Selection.Find.Replacement.Text = strReplace

objWord.Selection.Find.Forward = 1

objWord.Selection.Find.Format = 0

objWord.Selection.Find.MatchCase = 0

objWord.Selection.Find.MatchWholeWord = 0

objWord.Selection.Find.MatchWildcards = 0

objWord.Selection.Find.MatchSoundsLike = 0

objWord.Selection.Find.MatchAllWordForms = 0





RC = objWord.ActiveDocument.SaveAs(strDstFile,2)

RC = objWord.Application.Quit
البته این روش یک بدی داره! اگر شی COM آفیس WORD در دسترس نباشه! برنامه تون از کار میوفته!
چون سالها قبل همچنین کاری کرده بودیم برای دریافت از اکسل و از شی اکسل آبجکت ساخته بودیم بعدها در نسخه های ویندوز بالاتر و آفیس های به روز برنامه کار نمیکرد!
به نظرم موقتا شاید تاثیر مثبتی داشته باشه کاری کردید ولی مطمنا در طولانی مدت قابل نگهداری نیست و وابستگی بسیار زیادی ایجاد کردید بهتره روی یک کانورتور ساده با یک زبان مثل سی پلاس پلاس فکر کنید به راحتی DLL کنید واستفاده کنید خیلی هم قابلیت نگهداری نرم افزار را بالا بردید