[Doctor GME]

هذا هو الشكل النهائى

كود :

content = content.Replace(Space(1) & row.Item("English") & Space(1), Space(1) & row.Item("Arabic") & Space(1))

ويعمل بشكل جيد إذا كانت الكلمة أو الجملة يليها ويسبقها مسافة
ولكن إذا كان يسبقها أو يليها سطر جديد لا تعمل
حاولت مع هذه الصيغة:

كود :

content = content.Replace(Space(1) Or vbCrLf & row.Item("English") & Space(1) Or vbCrLf, Space(1) Or vbCrLf & row.Item("Arabic") & Space(1) Or vbCrLf)

ولكن تعطى خطأ:
Conversion from string to type long is not valid