اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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.

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information