اختصار لتباعد الأحرف

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

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

في بعض الأحيان أحتاج إلى تباعد الأحرف سواء بالزيادة أو النقصان.

سؤالي: هل يمكن عمل زر اختصار لمثل هذه الحالة؟

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

دمتم بخير

[برقش]

 

اعتمادا على الماكرو المنشور في هذه الصفحة https://msdn.microsoft.com/en-us/library/office/ff195646.aspx  وبعد إدخال بعض التعديلات عليه، جرّب وحدتَي الماكرو أدناه لتباعد الأحرف (الأولى للزيادة والثانية للإنقاص، مع العلم أن الوحدتين هما للتباعد لا للموضع). ملاحظة: عليك اختيار النص قبل تشغيل الماكرو. إن نسيت تحديد نص وشغّلت الماكرو، فستظهر رسالة بالإنكليزية تطلب منك تحديد النص أولا.

Sub IncreaseFontSpacing()
If Selection.Type = wdSelectionNormal Then
Selection.Font.Spacing = Selection.Font.Spacing + 0.1
Else
MsgBox "You need to select some text."
End If
End Sub




Sub DecreaseFontSpacing()
If Selection.Type = wdSelectionNormal Then
Selection.Font.Spacing = Selection.Font.Spacing - 0.1
Else
MsgBox "You need to select some text."
End If
End Sub

 

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

أشكرك من أعماق قلبي.

100%

أدعو الله في عليائه أن يوفقكم لما فيه الخير.

مع فائق الاحترام والتقدير