إضافة ظل إلى نص برمجياً كود / أمر VBA

[Hamdi Edlbi-khalf]

السلام عليكم

أحتاج إلى أمر / كود فيجوال يمكنني من إضافة ظل إلى نص .

خلال عملي لـ template في الوورد احتجت إلى هذا الأول و قد  بحثت و لم أجد إجابة واضحة 

فلم أحصل على الطريقة الملائمة للاستفادة من الخاصية  

.FONT.shadow 

بانتظار إسهاماتكم بارك الله بكم .

[Hamdi Edlbi-khalf]

المشكلة في تطبيق الأمر المذكور آنفاً أني لا أستطيع التحكم بالظل و خصائصه 

السؤال الثاني المرتبط 

كيف أستطيع تطبيق نوع من الظلال الموجودة ضمن تبويب التأثيرات ؟

[Hamdi Edlbi-khalf]

Sub AddFontShadow()
    Dim shad As Word.ShadowFormat

    Set shad = Selection.Font.TextShadow
    With shad
        Debug.Print "Blur: " & .Blur, _
                    "ForeColor: " & .ForeColor, _
                    "Obscured: " & .Obscured, _
                    "OffsetX: " & .OffsetX, _
                    "OffsetY: " & .OffsetY, _
                    "Style: " & .style, _
                    "Transparency: " & .Transparency, _
                    "Type: " & .Type
    End With
End Sub

كل الشكر لمن قدم الكود

من موقع 

Stackoverflow