اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

  • 5 months later...

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

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

رموز الاستبدال.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

 

تم تعديل بواسطه شحادة بشير
رابط هذا التعليق
شارك

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information