ماكرو يقوم بتنظيم البحوث وتنسيق أبيات الشعر

جزاك الله خيراً

الذي أعجبني أخي إبراهيم ماكرو تنسيق الشعر فيا ليتك تضع الكود هنا حتى نستخدمه في قوالب أخرى.

وعندي مشاركة

ألا ترى أن استخدام مفاتيح الاختزال في الـ Word أسهل وأسرع من الفأرة .

كنت أريد أن أذكر طريقة عمل الهوامش وإغلاقها ، ولكن آثرت ذكر الماكرو المسجل

إضغط Alt+A لإدراج الحاشية واضغط Alt+Q فإغلاقها.

هذا ماكرو الإدراج

Sub حاشية()



    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _

        ActiveDocument.Content.End)

        With .FootnoteOptions

            .Location = wdBottomOfPage

            .NumberingRule = wdRestartContinuous

            .StartingNumber = 1

            .NumberStyle = wdNoteNumberStyleArabic

        End With

        .Footnotes.Add Range:=Selection.Range, Reference:=""

    End With

    Selection.HomeKey Unit:=wdLine

    Selection.HomeKey Unit:=wdLine

    Selection.TypeText Text:="("

    Selection.MoveRight Unit:=wdCharacter, Count:=1

    Application.Keyboard (1025)

    Selection.TypeText Text:=")"

    Selection.EndKey Unit:=wdLine

    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend

    With Selection.Font

        .Name = "Times New Roman"

        .Size = 10

        .Bold = False

        .Italic = False

        .Underline = wdUnderlineNone

        .UnderlineColor = wdColorAutomatic

        .StrikeThrough = False

        .DoubleStrikeThrough = False

        .Outline = False

        .Emboss = False

        .Shadow = False

        .Hidden = False

        .SmallCaps = False

        .AllCaps = False

        .Color = wdColorAutomatic

        .Engrave = False

        .Superscript = False

        .Subscript = False

        .Spacing = 0

        .Scaling = 100

        .Position = 0

        .Kerning = 0

        .Animation = wdAnimationNone

        .SizeBi = 14

        .NameBi = "Traditional Arabic"

        .BoldBi = False

        .ItalicBi = False

    End With

    Selection.EndKey Unit:=wdLine

End Sub

وهذا ماكرو الإغلاق

Sub إغلاق()

'

' إغلاق ماكرو

' تسجيل الماكرو ‏30‏/03‏/2003 من قبل 0

'

    If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _

        ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _

        wdPrintPreview Then

        ActiveWindow.View.SeekView = wdSeekMainDocument

    Else

        ActiveWindow.Panes(2).Close

    End If

    Selection.TypeText Text:="("

    Selection.MoveRight Unit:=wdCharacter, Count:=1

    Selection.TypeText Text:=")"

    Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend

    With Selection.Font

        .Name = "Times New Roman"

        .Size = 12

        .Bold = False

        .Italic = False

        .Underline = wdUnderlineNone

        .UnderlineColor = wdColorAutomatic

        .StrikeThrough = False

        .DoubleStrikeThrough = False

        .Outline = False

        .Emboss = False

        .Shadow = False

        .Hidden = False

        .SmallCaps = False

        .AllCaps = False

        .Color = wdColorAutomatic

        .Engrave = False

        .Superscript = True

        .Subscript = False

        .Spacing = 0

        .Scaling = 100

        .Position = 0

        .Kerning = 0

        .Animation = wdAnimationNone

        .SizeBi = 12

        .NameBi = "Traditional Arabic"

        .BoldBi = False

        .ItalicBi = False

    End With

    Selection.MoveRight Unit:=wdCharacter, Count:=1

End Sub

اعتذر الكود بدا غير منسق ولكنه في وضع التحرير منسق وأنا لأعرف كيفية تنسيق الكود هنا.

الأخ الكريم/ أبو محمد الهذلي

بالنسبة للكود فهو موجود في نفس القالب ويمكن الإطلاع عليه عن طريق الذهاب إلى أدوات - ماكرو - وحدات ماكرو .. لتظهر جميع الماكروات المستخدمة أمامك ويمكنك تحريرها وتعديلها أو نسخها إذا أحببت كما أن إدراجها في الموضوع هنا قد يسبب بعض الارتباك، وأفضل دائماً وجود الكود مع المثال المباشر للتطبيق فهو أعم للفائدة وأسهل للفهم

أما بالنسبة للاختصارات فقد اعتمدت على النقر بالماوس لتعم الفائدة فكثير من المبتدئين لا يعرفون هذه الطريقة ، كما وضعت طريقة أخرى هي الوصول إلى الأوامر عن طريق قائمة إبراهيم Alt+ي في وكذلك بقية الاختصارات في القائمة حسب الحروف التي تحتها خط مع زر Alt .. ولم أضع الاختصار هنا لأن كل مستخدم له طريقة خاصة واختصارات يرتاح لها فقد يصادق ذلك أحد اختصارات ويتعارض معه كما أنه من الممكن وضع مفاتيح اختصار في أي وقت لتنفيذ أي أمر من الأوامر أو تشغيل الماكروات أو حتى إدراج الرموز وغيرها من خدمات برنامج وورد الرائعة..

مرة أخرى شكراً لتفاعلك مع الموضوع وأرجو أن تعم الفائدة