كود تحديد التباعد بين الأسطر

[صالح حمادي]

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

أخوتي الكرام حياكم الله .أبحث عن الأكواد التالية لمن لديه معلومة:

1- الكود الذي يقوم بتحديد التباعد بين الأسطر

2-الكود الذي يقوم بإزالة المسافة قبل الفقرة و بعد الفقرة

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

 

[رفعت يسري حامد]

يمكنك عمل ماكرو لذلك بسهولة ؟

هذا هو الكود الثاني يقوم بإزالة المسافة قبل وبعد الفقرة ويجعل المسافات بين السطور مفرد.

Sub الكود_الثاني()
'
' الكود_الثاني Macro
'
'
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphJustifyLow
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .ReadingOrder = wdReadingOrderRtl
    End With
End Sub
 

أما بالنسبة للكود الأول فحدد ما هو التباعد المطلوب ليتم ضبط الكود عليه. 

ويمكنك الاستفادة من هذا الموضوع طريقة إنشاء مشروع الماكرو  .

 

[صالح حمادي]

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

للفائدة الكود رقم 1 هو كالتالي:

selection.ParagraphFormat.LineSpacing=11

 

تم تعديل أبريل 15, 2017 بواسطه صالح حمادي