صفحة 1 من 1
أرجو المساعدة لو تكرمتم
مرسل: الأحد 19 ربيع الثاني 1436هـ (8-2-2015م) 8:15 pm
بواسطة Friendly
عندي ملف word الأرقام باللغة الانكليزية (العربية) اريد تحويلها الى اللغة العربية (الهندية)، علما بان إعدادات اللغة صحيحة في برنامج ال Word لكن الملف المذكور منسوخ من برنامج ترادوس.
هل يتوفر لديكم vba code لاستبدال الأرقام
أرجو الإفادة لو تكرمتم
رد: أرجو المساعدة لو تكرمتم
مرسل: الجمعة 24 ربيع الثاني 1436هـ (13-2-2015م) 9:18 am
بواسطة Friendly
أين الردود، أين اصحاب الخبرة،؟برجاء المساعدة
Re: أرجو المساعدة لو تكرمتم
مرسل: الاثنين 27 ربيع الثاني 1436هـ (16-2-2015م) 8:59 pm
بواسطة أبوالحارث
لو ترسل لنا جزءًا من الملف
Re: أرجو المساعدة لو تكرمتم
مرسل: الجمعة 1 جمادى الأولى 1436هـ (20-2-2015م) 11:30 pm
بواسطة Friendly
اخي الكريم بداية شكرا لك،
مثال على المشكلة: "صدر القانون رقم 1234/25 بتاريخ 25 شباط/فبراير 2015، وتم اعتماده بأغلبية 20 صوت وامتناع 10 أصوات عن التصويت .....
للعلم النص مأخوذ من قالب نص إنكليزي لذلك حتى لو قمت بتغيير إعدادات اللغة الى الهندية او الى السباق فان الأرقام لا تتغير والمطلوب ان تصبح مثلا القانون رقم ٢٥/١٢٣٤ وهكذا.
اعتقد ان حل المشكلة بحاجة انشاء كود ماكرو لتحويل الأرقام الى الهندية.
أرجو الإفادة
Re: أرجو المساعدة لو تكرمتم
مرسل: السبت 2 جمادى الأولى 1436هـ (21-2-2015م) 5:18 pm
بواسطة أبوالحارث
إذا لم ينفع تغيير إعدادات الوورد بعض الأرقام الهندية يمكن استعمال هذه الكود
كود: تحديد الكل
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: أرجو المساعدة لو تكرمتم
مرسل: الأحد 3 جمادى الأولى 1436هـ (22-2-2015م) 8:02 pm
بواسطة Friendly
أولاً، ألف شكر اخي الكريم على هذا الكود الرائع فقد قام بتحويل الارقام بنجاح.
لكن عندي استفسار لو تكرمت، هل بالإمكان استثناء عملية التحويل للعبارات الأجنبية التي تحتوي أرقام بحيث لا يقوم بتحويلها، مثال ذلك: لـ CBERS-4، لأنه بعد استخدام الكود قام بتحويل كل العبارات الاجنبية التي بها أرقام فأصبحت كما الأمثلة التالية وهي كثيرة في المستند: لـ CBERS-٤، والساتلين ALOS-٢ وHimawari-٨.
أرجو أن يكون هناك عملية استثناء للنصوص التي بها ارقام من خلال اضافته إلى الكود إن أمكن.
مرة ثانية ألف ألف شكر وبانتظار ردك اخي الكريم
Re: أرجو المساعدة لو تكرمتم
مرسل: الاثنين 25 جمادى الأولى 1436هـ (16-3-2015م) 2:49 pm
بواسطة attouq
على حد علمي التغيير يتم عن طريق لوحة التحكم، باختيار لغة الأرقام (على حسب السياق) context من الخيارات المتاحة في شاشة Region and Language ثم Customize Format دائمًا ينجح معي هذا الحل! (المهم أن تختار الدولة عربية، لأنه على حسب السياق يكون على حسب الدولة فإذا كنت تختار الدولة أمريكا مثلا فستظهر لك الأرقام كلها بالإنجليزية دوما).
وكذلك في الوورد يفضل أن تختار على حسب السياق، عندئذ في حال الكتابة باللغة العربية تظهر بالهندي وفي حال الكتابة باللغة الإنجليزية تظهر بأرقام عربية (أجنبية).
هذا ما أعرفه والله أعلم، وقد أكون أخطأت. لكن لا مانع من المحاولة :)