السلام عليكم
وعيدكم مبارك مؤخرا وتقبل الله منا ومنكم صالح الاعمال
اساتذتي الافاضل كنت حملت هذا المرفق من هذا المنتدى المبارك
وهو يعمل على ترجمة النص من الانجليزي الى العربي والعكس
والان لا يعمل وما ادري ما هو السبب
واظن انه عندما غيرت الاوفيس من 2010 الى 2019 كان السبب والله اعلم
والمرفق هنا
وجزاكم الله خيرا
cang _lang_ar_en.rar
لإثراء الموضوع أكثر، هذا فنكشن فك التشفير وإرجاعه نص طبيعي..
Function DecodeQP2(s As String) As String
Dim i As Long
Dim p1 As Long
Dim p2 As Long
Dim r As String
i = 2
Do While i < Len(s)
Select Case Mid(s, i, 1)
Case "0" To "7"
r = r & Chr(CLng("&H" & Mid(s, i, 2)))
Case "C", "D"
p1 = CLng("&H" & Mid(s, i, 2)) - 192
i = i + 3
p2 = CLng("&H" &