أرجو المساعدة لو تكرمتم

أضف رد جديد

كاتب الموضوع
Friendly
مشاركات: 4
اشترك في: ربيع الثاني 1436

أرجو المساعدة لو تكرمتم

مشاركة بواسطة Friendly »

عندي ملف word الأرقام باللغة الانكليزية (العربية) اريد تحويلها الى اللغة العربية (الهندية)، علما بان إعدادات اللغة صحيحة في برنامج ال Word لكن الملف المذكور منسوخ من برنامج ترادوس.
هل يتوفر لديكم vba code لاستبدال الأرقام
أرجو الإفادة لو تكرمتم

كاتب الموضوع
Friendly
مشاركات: 4
اشترك في: ربيع الثاني 1436

رد: أرجو المساعدة لو تكرمتم

مشاركة بواسطة Friendly »

أين الردود، أين اصحاب الخبرة،؟برجاء المساعدة

أبوالحارث
مشاركات: 133
اشترك في: جمادى الأولى 1432

Re: أرجو المساعدة لو تكرمتم

مشاركة بواسطة أبوالحارث »

لو ترسل لنا جزءًا من الملف

كاتب الموضوع
Friendly
مشاركات: 4
اشترك في: ربيع الثاني 1436

Re: أرجو المساعدة لو تكرمتم

مشاركة بواسطة Friendly »

اخي الكريم بداية شكرا لك،
مثال على المشكلة: "صدر القانون رقم 1234/25 بتاريخ 25 شباط/فبراير 2015، وتم اعتماده بأغلبية 20 صوت وامتناع 10 أصوات عن التصويت .....
للعلم النص مأخوذ من قالب نص إنكليزي لذلك حتى لو قمت بتغيير إعدادات اللغة الى الهندية او الى السباق فان الأرقام لا تتغير والمطلوب ان تصبح مثلا القانون رقم ٢٥/١٢٣٤ وهكذا.
اعتقد ان حل المشكلة بحاجة انشاء كود ماكرو لتحويل الأرقام الى الهندية.
أرجو الإفادة

أبوالحارث
مشاركات: 133
اشترك في: جمادى الأولى 1432

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

كاتب الموضوع
Friendly
مشاركات: 4
اشترك في: ربيع الثاني 1436

Re: أرجو المساعدة لو تكرمتم

مشاركة بواسطة Friendly »

أولاً، ألف شكر اخي الكريم على هذا الكود الرائع فقد قام بتحويل الارقام بنجاح.
لكن عندي استفسار لو تكرمت، هل بالإمكان استثناء عملية التحويل للعبارات الأجنبية التي تحتوي أرقام بحيث لا يقوم بتحويلها، مثال ذلك: لـ CBERS-4، لأنه بعد استخدام الكود قام بتحويل كل العبارات الاجنبية التي بها أرقام فأصبحت كما الأمثلة التالية وهي كثيرة في المستند: لـ CBERS-٤، والساتلين ALOS-٢ وHimawari-٨.

أرجو أن يكون هناك عملية استثناء للنصوص التي بها ارقام من خلال اضافته إلى الكود إن أمكن.
مرة ثانية ألف ألف شكر وبانتظار ردك اخي الكريم

attouq
مشاركات: 5
اشترك في: جمادى الأولى 1436

Re: أرجو المساعدة لو تكرمتم

مشاركة بواسطة attouq »

على حد علمي التغيير يتم عن طريق لوحة التحكم، باختيار لغة الأرقام (على حسب السياق) context من الخيارات المتاحة في شاشة Region and Language ثم Customize Format دائمًا ينجح معي هذا الحل! (المهم أن تختار الدولة عربية، لأنه على حسب السياق يكون على حسب الدولة فإذا كنت تختار الدولة أمريكا مثلا فستظهر لك الأرقام كلها بالإنجليزية دوما).
وكذلك في الوورد يفضل أن تختار على حسب السياق، عندئذ في حال الكتابة باللغة العربية تظهر بالهندي وفي حال الكتابة باللغة الإنجليزية تظهر بأرقام عربية (أجنبية).

هذا ما أعرفه والله أعلم، وقد أكون أخطأت. لكن لا مانع من المحاولة :)
أضف رد جديد