أرشيف ملتقى أهل الحديث - 5

ماكرو حواشي سفلية هدية لكم جميعًا

ـ[صلاح هلل]ــــــــ[27 - 05 - 04, 03:46 ص]ـ

الأخوة الأفاضل بارك الله فيهم جميعًا:

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

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

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

والرجاء الدعاء.

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

ـ[عبدالله بن عقيل]ــــــــ[31 - 05 - 04, 07:04 م]ـ

جزاك الله خير الجزاء يا شيخ صلاح ..

في البال كتابة موضوع يكون مدعماً بالصور عن فنون الصف على الوورد ..

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

ـ[سلطان العتيبي]ــــــــ[06 - 06 - 04, 01:08 ص]ـ

فعجل لنا بالموضوع فنحن له بالأشواق ...

ـ[أبو عبدالله النجدي]ــــــــ[16 - 06 - 04, 01:47 ص]ـ

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

لم أتبين الطريقة، فقد ظهر لي بعد التحميل ملف وورد هكذا:

Selection.TypeText Text:="()"

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

Selection.Font.Superscript = wdToggle

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

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

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

Selection.HomeKey Unit:=wdLine

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

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

Selection.HomeKey Unit:=wdLine

Selection.RtlPara

Selection.TypeText Text:="("

Selection.EndKey Unit:=wdLine

Selection.TypeText Text:=") "

Selection.HomeKey Unit:=wdLine

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

Selection.MoveRight Unit:=wdCharacter, Count:=4, 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 = False

.Subscript = False

.Spacing = 0

.Scaling = 100

.Position = 0

.Kerning = 0

.Animation = wdAnimationNone

.SizeBi = 12

.NameBi = "Traditional Arabic"

.BoldBi = False

.ItalicBi = False

End With

With Selection.ParagraphFormat

.LeftIndent = CentimetersToPoints(0.64)

.RightIndent = CentimetersToPoints(0)

.SpaceBefore = 0

.SpaceBeforeAuto = False

.SpaceAfter = 0

.SpaceAfterAuto = False

.LineSpacingRule = wdLineSpaceMultiple

.LineSpacing = LinesToPoints(0.9)

.Alignment = wdAlignParagraphJustify

.WidowControl = True

.KeepWithNext = False

.KeepTogether = False

.PageBreakBefore = False

.NoLineNumber = False

.Hyphenation = True

.FirstLineIndent = CentimetersToPoints(-0.64)

.OutlineLevel = wdOutlineLevelBodyText

.CharacterUnitLeftIndent = 0

.CharacterUnitRightIndent = 0

.CharacterUnitFirstLineIndent = 0

.LineUnitBefore = 0

.LineUnitAfter = 0

.ReadingOrder = wdReadingOrderRtl

End With

Selection.HomeKey Unit:=wdLine

Selection.EndKey Unit:=wdLine

Active********ActivePane.View.Zoom.Percentage = 125

فما المقصود!

ـ[صلاح هلل]ــــــــ[29 - 06 - 04, 04:23 ص]ـ

أخي الكريم أبو عبد الله النجدي أثابه الله:

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

أعتذر للتأخير في إجابتك أخي الفاضل.

وقد سبقت الطريقة مختصرة:

وما عليك أخي سوى فتح الملف، وتحديد ما فيه وهو الذي ظهر لكم بالاتيني، ثم نسخه كله مشكورًا.

وافتح في الوورد قائمة أدوات التي بأعلى صفحة الوورد

وأنزل في القائمة لأسفل

¥