البحث عن اختصار الرموز (صلى الله عليه وسلم، رضي الله عنه... الخ)

[مصطفى شاهين]

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

عندي ملف مليئ باختصارات رموز (صلى الله عليه وسلم، رضي الله عنه..الخ) وكلها تظهر فقط عند تغيير الخط لـ (ATraditional Arabic)، وعند تحديد الملف لتوحيد خطه طبعاً الرموز كلها اختفت وظهر مكانها شيء آخر.

هل يوجد طريقة لتحديد جميع الرموز؛ لتغيير الخط حسب ما ذكرت سابقاً؟

مع الاحترام والتقدير

[شحادة بشير]

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

بالمرفق ملف فلاشي شرحت من خلاله من سنوات كيفية التعامل مع الرموز الخاصة، وبإذن الله سيفيدك.

رموز الاستبدال.zip

[مصطفى شاهين]

9 ساعات مضت, شحادة بشير said:

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

بالمرفق ملف فلاشي شرحت من خلاله من سنوات كيفية التعامل مع الرموز الخاصة، وبإذن الله سيفيدك.

رموز الاستبدال.zip 430.03 kB · 0 تنزيلات

بارك الله فيك أ. شحادة، يرجى تزويدي لطفاً بكود الماكرو؛ حتى أطبقه على ملفي.

دمتم بخير

[شحادة بشير]

تفضل أخي العزيز مصطفى:

 '

    'Set bookmark for return.
    ActiveDocument.Bookmarks.Add Name:="WhereYouWere", Range:=Selection.Range

    ' Go to start of document.
    Selection.HomeKey unit:=wdStory, Extend:=wdMove
    ' Repaginate the document.
    ActiveDocument.Repaginate
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "{"
        .Replacement.Text = ChrW(64831)
        .Replacement.Font.Name = "Traditional Arabic"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    With Selection.Find
        .Text = "}"
        .Replacement.Text = ChrW(64830)
        .Replacement.Font.Name = "Traditional Arabic"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll, _
         Format:=True, MatchCase:=True, _
         MatchWholeWord:=True
    
    ' Return to starting location.
    Selection.GoTo What:=wdGoToBookmark, Name:="WhereYouWere"
    ' Delete the return marker.
    ActiveDocument.Bookmarks("WhereYouWere").Delete

 

تم تعديل يونيو 22, 2020 بواسطه شحادة بشير

[مصطفى شاهين]

بارك الله فيك أخي شحادة ما قصرت

ربنا يزيدك من فضله، وينفع بك الإسلام والمسلمين

اللهم آمين

تمنياتنا لكم دوماً بالتوفيق والسداد