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

ماكرو ترقيم حسب رمز معين


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

يحتاج الباحث كثيرا إلى ترقيم ملف بالكامل، كترقيم الكتب والأبواب والأحاديث، ويحتاج إلى عمل مسلسل لكل جزئية، لذا يجب أن يضع رمزًا للكتب، وآخر للأبواب، وآخر للحديث، ثم يختار الرمز الذي يرقم عليه، ليكون للكتب ترقيم مسلسل، وللأبواب والأحاديث كذلك، وهذا هو الماكرو:

On Error GoTo 5
ss = InputBox("اكتب الرمز المطلوب الترقيم بدلالته، مثل: = أو * أو # أو @")
For i = 1 To 100000
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ss
        .Replacement.Text = " :"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Copy
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=i
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next i
5: End
Beep

End Sub

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

فضلًا لا أمرًا أستاذنا الفاضل

هل من طريقة أو فيديو يوضح كيفية استخدام أكواد الماكرو، أي طريقة الإدارج بالوورد ثم استخدامه؟

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

1- افتح alt + f11

2- كليك يمين على normal

3- import file

4- حدد مكان الماكرو 

5- NewMacros.rar أضف هذا الملف (فيه الماكرو)

6- ستجده ضمن قائمة الماكروهات داخل الورد

7- اجعل له (زر) على الشريط الأعلى للورد من قائمة الأوامر الإضافية

8- اضغط على هذا الزر إذا أردت تنفيذ الماكرو

 

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

  • 2 weeks later...

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

أخي الكريم أبو عاصم: هل يمكنني التواصل بك على الخاص

إن كان لديك رقم واتساب فأنا في انتظاره أو أي وسيلة تواصل أخرى تراها أنت

 

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

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