البحث عن ارقام بصيغة تاريخ واستبدال تنسيقها

[ashry aziz]

سلام عليكم 

ارجو افادتي بطريقة بالبحث عن التاريخ بارقام مختلفة بالصيغة 2018/04/02

وتحويلها الي 04/02/2018  ..البحث عن التاريخ  واستبداله بنفس التاريخ لكن بصيغة مختلفه... في الورد

مع الشكر 

[تومي محمد]

اكتب في خانة البحث التاريخ الذي تريد استبداله واكتب في خانة الاستبدال صيغة التاريخ التي تريد استبدالها به

 

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

[محمد طاهر عرفه]

السلام عليكم

هذه محاولة لاستبدال كل ما هو بتنسيق 

dd/mm/yyyy

 الى

mm/dd/yyyy

ربما لا تعمل جيدا مع كل الاحتمالات

جرب و اخبرنا

 

مرفق الملف

Word-Replace Date.docm

 

المصدر مع تعديل

Sub GetDateAndReplace()
    Dim FoundOne As Boolean

    Selection.HomeKey Unit:=wdStory, Extend:=wdMove
    FoundOne = True ' loop at least once

    Do While FoundOne ' loop until no date is found
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "([0-9]{1,2})[/]([0-9]{1,2})[/]([0-9]{4})"
            .Format = True
            .Forward = True
            .MatchWildcards = True
        End With

        Selection.Find.Execute Replace:=wdReplaceNone

        ' check the find to be sure it's a date
        If IsDate(Selection.Text) Then
            Selection.Text = Format(Selection.Text, "mm/dd/yyyy")
           Selection.Collapse wdCollapseEnd
        Else ' not a date - end loop
            FoundOne = False
        End If
    Loop
End Sub

 

[تومي محمد]

حصل خطا اثناء تشغيل الكود وهذه صورة الخطا

[محمد طاهر عرفه]

السلام عليكم

أخي تومي

هل نقلت الكود ام جربته من الملف المرفق ؟

أعتقد أن هذا النوع من الأخطاء يظهر نتيجة لاختلاف اللغة و اعدادات المنطقة وبالتالي التنسيقات الافتراضية فى لوحة التحكم و الله اعلم

من لوحة التحكم : Regional and Language Options.

ارجو التحويل مؤقتا الي الانجليزية و التجربة مرة اخرى لنتعرف على السبب