اطار متحرك حول نص؟؟

[الخطاب]

كيف يمكن عمل اطار متحرك حول نص في الوورد؟؟

مثل الملف المرفق

بسم الله الرحمن الرحيم.rar

[الخطاب]

للرفع.. ...

[ابوخليل]

السلام عليكم

يمكنك ذلك  من  : تنسيق / خط / تأثيرات النص

حدد النص ثم طبق التأثير الذي تريده

انظر المرفق

بسم الله الرحمن الرحيم2.rar

[ابو ابراهيم11]

السلام عليكم استاذ ابو خليل

هل يمكن عمل ذالك في اوفيس 2010 وكيف ان امكن ارفاق صورة توضيحية وشكرا

[ابو ابراهيم11]

في ٢٧‏/٢‏/٢٠١٧ at 21:48, ابو ابراهيم11 said:

السلام عليكم استاذ ابو خليل

هل يمكن عمل ذالك في اوفيس 2010 وكيف ان امكن ارفاق صورة توضيحية وشكرا

 

[Shivan Rekany]

في ٢٧‏/٢‏/٢٠١٧ at 21:48, ابو ابراهيم11 said:

السلام عليكم استاذ ابو خليل

هل يمكن عمل ذالك في اوفيس 2010 وكيف ان امكن ارفاق صورة توضيحية وشكرا

استأذن من استاذنا @ابوخليل على المداخلة

نعم تقدر تعمل

اولا حدد النص
بعدين اضغط كليك يمين عليه

اختار ستايلس

اختر ابلاي ستايلس

راح يظهر لك هذه الشاشة

شوف الصورة

في يسارك فيها مربع عليه مكتوبة حرفين AA اضغط عليه
راح يظهر الستايلات عندك

وتكدر تستخدم اي واحد تريد

تحياتي

 

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

السلام عليكم

حاولت وما وصلت لنتيجة، يرجى التوضيح أكثر.

دمتم بخير

تم تعديل مارس 27, 2017 بواسطه مصطفى شاهين

[ابو ابراهيم11]

السلام عليكم 

اخي العزيز حاولت انا ايضا ولم احصل على نتيجة 

وشكرا لتفضلكم بالاجابة

[حمادة عمر]

فعلا لم تضبط معي انا ايضا

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

[lotfymakh]

السادة القراء/

سلاما وتحية

تم تعطيل هذ الخيار ( وضع إطار متحرك حول النص ) فى الاصدار 2010 و لكن بالبحث تبين وجود ماكرو يمكن إضافته للبرنامج كى يؤدى هذه الوظيفة 

Sub AnimateFont()
Dim sAnimation As String
    If Len(Selection.Range) = 0 Then
        MsgBox "Select text first!", vbCritical, "No Text Selected"
        Exit Sub
    End If
    sAnimation = InputBox("Which animation? Enter the number: " & vbCr & _
                          " 1. Blinking Background" & vbCr & _
                          " 2. Las Vegas Lights" & vbCr & _
                          " 3. Marching Black Ants" & vbCr & _
                          " 4. Marching Red Ants" & vbCr & _
                          " 5. Shimmer" & vbCr & _
                          " 6. Sparkle Text" & vbCr & _
                          " 0. None", "Font animation")
    Select Case sAnimation
        Case 1: Selection.Font.Animation = wdAnimationBlinkingBackground
        Case 2: Selection.Font.Animation = wdAnimationLasVegasLights
        Case 3: Selection.Font.Animation = wdAnimationMarchingBlackAnts
        Case 4: Selection.Font.Animation = wdAnimationMarchingRedAnts
        Case 5: Selection.Font.Animation = wdAnimationShimmer
        Case 6: Selection.Font.Animation = wdAnimationSparkleText
        Case 0: Selection.Font.Animation = wdAnimationNone
        Case Else:
    End Select
End Sub

 

 

رابط المقال

تم تعديل فبراير 27, 2018 بواسطه lotfymakh
اضافة رابط بشكل صحيح

[facesbooks]

كيف يمكن عمل ماكرو لهذا واضافته للنص