تباعد الأسطر

[مصطفى شاهين]

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

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

سؤالي: هل يوجد طريقة تختصر عليَّ الوقت في الذهاب إلى الخطوات السابقة، سواء كان ماكرو أو غير ذلك؟

أشكرك لكم جهودكم الطيبة

 

[الطلحي]

من السهل استخدام اختصارات لوحة المفاتيح كا لتالي:

Ctrl + 1  تباعد أسطر بمقدار 1

Ctrl + 5  تباعد أسطر بمقدار  1.5

C trl + 2  تباعد اسطر بمقدار 2

 Ctrl+3  تباعد اسطر بمقدار 3

[مصطفى شاهين]

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

أشكرك على المشاركة

احترامي

[برقش]

لست خبيرا بالماكرو ولكن وجدت في هذه الصفحة
https://social.msdn.microsoft.com/Forums/office/en-US/79855849-4809-4777-8a47-2dec56a1313c/macros-to-change-line-and-paragraph-spacing
وحدتَي ماكرو قد تفيدانك. الأولى لزيادة التباعد بين الأسطر نصف نقطة والثانية لإنقاص التباعد نصف نقطة

Sub IncreaseLineSpace()
On Error Resume Next
With Selection.ParagraphFormat
.LineSpacing = .LineSpacing + 0.5
End With
End Sub

Sub DecreaseLineSpace()
On Error Resume Next
With Selection.ParagraphFormat
.LineSpacing = .LineSpacing - 0.5
End With
End Sub

 

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

تم تعديل أكتوبر 22, 2015 بواسطه برقش

[برقش]

أما إذا أردت ماكرو لرقم تباعد محدد، فإليك هذا الماكرو الذي يفترض أنك تريد تباعدا تاما من 24 نقطة (يمكنك تغيير الرقم كما تشاء)

Sub LS()
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 24
End With
End Sub

 

تم تعديل أكتوبر 22, 2015 بواسطه برقش

[مصطفى شاهين]

الأخ الفاضل/ برقش

صراحة إجابة شافية ولا يوجد عليها غبار إطلاقاً، سلمت يداك

من باب الفضول في المعرفة هل من طريقة لعمل تباعد على (تباعد الأسطر - تام) وليس على (تباعد الأسطر - متعدد)

أشكر لكم تعاونكم الدائم

[برقش]

أظن أنه يكفي أن نأخذ جملة من الماكرو الثالث ونضعها في وحدتي الماكرو الأولى والثانية. وهكذا تحوّل وحدتا الماكرو التباعد إلى "تام" وفي نفس الوقت يزيد/ينقص التباعد نصف نقطة.
النتيجة هي التالية:

Sub LineSpaceExactlyIncrease()
On Error Resume Next
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = .LineSpacing + 0.5
End With
End Sub


Sub LineSpaceExactlyDecrease()
On Error Resume Next
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = .LineSpacing - 0.5
End With
End Sub

 

[مصطفى شاهين]

100% أخي برقش

بصراحة لا أستطيع إلا أن أقول لك أنت رائع بمعنى الكلمة.

مشكور أخي العزيز ولكل القائمين على هذا الصرح العظيم

احترامي لكم