با عرض سلام خدمت دوستان از جمله دوست عزيزم SmdErfan
چند نكته در مورد برنامه شما قابل ذكر است :
اول اينكه من فقط در مورد مشكل اول مي تونم كمكتون بكنم
دوم اينكه مورد دوم و سوم پس از حل مورد اول هيچ موقع براي من پيش نيومد
سوم اينكه در مورد برنامه شما بايد بگم كه به جاي گزينه سوم بايد از گزينه اول استفاده كنيد
(گزينه يك ReadFromFile - گزينه دو ReadFromText - گزينه سوم ReadFromTextInWin)
و بصورت زير عمل مي كنيد
به جاي فانكشن قديمي CVWD از فانكشن جديد زير استفاده كنيد :
Function CVWD(St, Optional Convert_No As Boolean = True, Optional La As La = WdWin, Optional Style As CVStyle) As String
Dim StrWin As New W2D_D2W.ClsDos2Win
CVWD = StrWin.Dos2Win_ReadFromFile(St, True)
End Function
چون من گزينه هاي اول و دوم را بصورت صد در صد تست نكرده بودم تقريباً ميشه گفت گزينه اول را بصورت نود در صد با كمك دوست عزيزم SmdErfan در فايل زير حل كردم و همچنان گزينه دوم بصورت تست نشده باقي ماند .
همچنان منتظر ارسال پيشنهاد ، انتقاد و يا باگ هستم .
با تشكر فراوان از تمامي دوستان
به اميد اينكه يك كانورتور فول ساخته بشه كه همگي بتونند از اون استفاده كنند .
ورژن جديدتري از اين فايل موجود است
ميتوانيد آنرا در ادامه دانلود نماييد