عندي ملف word الأرقام باللغة الانكليزية (العربية) اريد تحويلها الى اللغة العربية (الهندية)، علما بان إعدادات اللغة صحيحة في برنامج ال Word لكن الملف المذكور منسوخ من برنامج ترادوس.
هل يتوفر لديكم vba code لاستبدال الأرقام
أرجو الإفادة لو تكرمتم
أرجو المساعدة لو تكرمتم
رد: أرجو المساعدة لو تكرمتم
أين الردود، أين اصحاب الخبرة،؟برجاء المساعدة
Re: أرجو المساعدة لو تكرمتم
لو ترسل لنا جزءًا من الملف
Re: أرجو المساعدة لو تكرمتم
اخي الكريم بداية شكرا لك،
مثال على المشكلة: "صدر القانون رقم 1234/25 بتاريخ 25 شباط/فبراير 2015، وتم اعتماده بأغلبية 20 صوت وامتناع 10 أصوات عن التصويت .....
للعلم النص مأخوذ من قالب نص إنكليزي لذلك حتى لو قمت بتغيير إعدادات اللغة الى الهندية او الى السباق فان الأرقام لا تتغير والمطلوب ان تصبح مثلا القانون رقم ٢٥/١٢٣٤ وهكذا.
اعتقد ان حل المشكلة بحاجة انشاء كود ماكرو لتحويل الأرقام الى الهندية.
أرجو الإفادة
مثال على المشكلة: "صدر القانون رقم 1234/25 بتاريخ 25 شباط/فبراير 2015، وتم اعتماده بأغلبية 20 صوت وامتناع 10 أصوات عن التصويت .....
للعلم النص مأخوذ من قالب نص إنكليزي لذلك حتى لو قمت بتغيير إعدادات اللغة الى الهندية او الى السباق فان الأرقام لا تتغير والمطلوب ان تصبح مثلا القانون رقم ٢٥/١٢٣٤ وهكذا.
اعتقد ان حل المشكلة بحاجة انشاء كود ماكرو لتحويل الأرقام الى الهندية.
أرجو الإفادة
Re: أرجو المساعدة لو تكرمتم
إذا لم ينفع تغيير إعدادات الوورد بعض الأرقام الهندية يمكن استعمال هذه الكود
كود: تحديد الكل
Sub ReplaceArabicDigits()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
For n = 0 To 9
With Selection.Find
.Text = ChrW((48 + n))
.Replacement.Text = ChrW((1632 + n))
.Execute Replace:=wdReplaceAll
End With
Next
End Sub
Re: أرجو المساعدة لو تكرمتم
أولاً، ألف شكر اخي الكريم على هذا الكود الرائع فقد قام بتحويل الارقام بنجاح.
لكن عندي استفسار لو تكرمت، هل بالإمكان استثناء عملية التحويل للعبارات الأجنبية التي تحتوي أرقام بحيث لا يقوم بتحويلها، مثال ذلك: لـ CBERS-4، لأنه بعد استخدام الكود قام بتحويل كل العبارات الاجنبية التي بها أرقام فأصبحت كما الأمثلة التالية وهي كثيرة في المستند: لـ CBERS-٤، والساتلين ALOS-٢ وHimawari-٨.
أرجو أن يكون هناك عملية استثناء للنصوص التي بها ارقام من خلال اضافته إلى الكود إن أمكن.
مرة ثانية ألف ألف شكر وبانتظار ردك اخي الكريم
لكن عندي استفسار لو تكرمت، هل بالإمكان استثناء عملية التحويل للعبارات الأجنبية التي تحتوي أرقام بحيث لا يقوم بتحويلها، مثال ذلك: لـ CBERS-4، لأنه بعد استخدام الكود قام بتحويل كل العبارات الاجنبية التي بها أرقام فأصبحت كما الأمثلة التالية وهي كثيرة في المستند: لـ CBERS-٤، والساتلين ALOS-٢ وHimawari-٨.
أرجو أن يكون هناك عملية استثناء للنصوص التي بها ارقام من خلال اضافته إلى الكود إن أمكن.
مرة ثانية ألف ألف شكر وبانتظار ردك اخي الكريم
Re: أرجو المساعدة لو تكرمتم
على حد علمي التغيير يتم عن طريق لوحة التحكم، باختيار لغة الأرقام (على حسب السياق) context من الخيارات المتاحة في شاشة Region and Language ثم Customize Format دائمًا ينجح معي هذا الحل! (المهم أن تختار الدولة عربية، لأنه على حسب السياق يكون على حسب الدولة فإذا كنت تختار الدولة أمريكا مثلا فستظهر لك الأرقام كلها بالإنجليزية دوما).
وكذلك في الوورد يفضل أن تختار على حسب السياق، عندئذ في حال الكتابة باللغة العربية تظهر بالهندي وفي حال الكتابة باللغة الإنجليزية تظهر بأرقام عربية (أجنبية).
هذا ما أعرفه والله أعلم، وقد أكون أخطأت. لكن لا مانع من المحاولة :)
وكذلك في الوورد يفضل أن تختار على حسب السياق، عندئذ في حال الكتابة باللغة العربية تظهر بالهندي وفي حال الكتابة باللغة الإنجليزية تظهر بأرقام عربية (أجنبية).
هذا ما أعرفه والله أعلم، وقد أكون أخطأت. لكن لا مانع من المحاولة :)