تصحيح code تحويل الاشهر ارقام الى حروف

[تومي محمد]

ان هذا الكود يحول الاشهر ارقام الى اشهر حروف لكن عند تشغيله يقوم بتحويل الاشهر على شكل (05) مثلا ولا يحول التي على شكل (5) كما يحول الشهر ذي الرقمين الى الشهر الذي يليه فمثلا يحول الشهر (04) الى (ماي ) .

فاين الخلل في هذا الكود

mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", _

"Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")

Selection.Find.ClearFormatting

With Selection.Find

For i = 1 To 12

Selection.HomeKey Unit:=wdStory

Do

.ClearFormatting

.Text = "([0-9]{1,})/" & IIf(i < 10, "0" & i, i) & "/([0-9]{4})"

.Forward = True

.Wrap = wdFindContinue

.MatchCase = True

.MatchWildcards = True

.Execute

If .Found = True Then

ddate = 10 - Len(Selection)

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdCharacter, Count:=2 - ddate

Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend

Selection.TypeText Text:=" " & CStr(mois(i)) & " "

End If

Loop Until .Found = False

Next i

End With

والسلام عليكم ورحمة الله وبركاته

[ابوخليل]

حياك الله اخي محمد

اين يعمل هذا الكود ؟

في وورد ام اكسل ام اكسس ؟

لو ارفقت مثالا يبين الخلل لعلنا نحاول معك للوصول الى الحل

[تومي محمد]

الكود يعمل في الوورد وها هو المثال تفضل اخي ابو خليل

لكن يظهر هذا السطر بعد اختيار الملف لارفاقه

Error You aren't permitted to upload this kind of file

والسلام عليكم ورحمة الله وبركاته

تم تعديل أكتوبر 14, 2012 بواسطه تومي محمد

[ابوخليل]

اضغط المستند بواسطة Rar أو Zip قبل الرفع

[تومي محمد]

بارك الله فيك وحفظك

وهاهو الملف PA.rar

والسلام

[تومي محمد]

كان الخطا في الكود السابق في هذا السطر وهاهو بعد التصحيح:

Selection.TypeText Text:=" "& Cstr(mois(i-1)) & " " a

والسلام عليكم ورحمة الله وبركاته

[عبدالله المجرب]

اليس للمفروض نقل هذا الموضوع الى قسم الوورد

[تومي محمد]

نعم ... ولكن تعمدت طرحه في منتدى الأكسس لخبرة أهل الاختصاص في vba ولهذا كان ذلك

ولاباس من نقله الى قسم الوورد

والسلام عليكم