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

[أبو عاصم المصري]

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

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

[hanymahmoud]

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

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

[أبو عاصم المصري]

1- افتح alt + f11

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

3- import file

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

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

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

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

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

 

[محمد العنسي]

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

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

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

 

[antoninomubarik]

On 1/12/2023 at 6:01 PM, hanymahmoud said:

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

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

 

نفس الطلب

 

 

 

Showbox jiofi.local.html tplinklogin