أعزائي وأحبائي : ماهي الطريقة لجعل ملف صوتي يفتح تلقائيا مع فتح ملف ا لوورد

[المستشار22]

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

احبتي مشرفين واعضاء المنتدى الجميل اوفيسنا,,,,

كل عام وانتم بخير .. واتمنى ان تكونو بأتم الصحة والعافية ..

سؤالي كماهو واضح في العنوان :

الطريقة التي اتبعتهاهي: ادراج ـ كائن ـ حزمة ـ ثم ملف ـ ثم استيراد ـ ثم نختار الملف الصوتي المراد تشغيلة مع فتح الوورد

ثم يظهر الملف داخل مستند الووردـ ثم تنسيق كائن ثم نصفر الحجم ...الان لايظهر الملف الصوتي

السؤال المهم : كيف اجعل الملف الصوتي يفتح تلقائيا مع فتح الوورد؟؟؟

وفقكم الله لما يحبه ويرضاه

[ابوخليل]

ارفق مثالك مضمنا بالملف الصوتي

[المستشار22]

ارفق مثالك مضمنا بالملف الصوتي

اشكرك اخي ابو خليل

وقد ارفقت مثالا لذالك

واضفت الملف الصوتي على الوورد

سوف تشاهده اذا قمت بفتح الووورد..

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

وريد منك وفقك الله شرح الطريقة لكي استطيع اضافة ملفات اخرى

نموذج.rar

[ابوخليل]

تفضل المرفق بعد التعديل

والطريقة هي :

من اشرطة الادوات افتح : أدوات / ماكرو / محرر Vicual Basic

ثم الصق هذا الكود ( انظر الى الصورة المرفقة)

Sub Document_open()

'تحديد الكائن

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

'تشغيل الملف الصوتي

Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary

End Sub

تشغيل ملف صوتي.rar

[المستشار22]

وفقك الله اخي ابو خليل

ولكن لم يشتغل الصوت تلقائي لاأعرف ماهو السبب

وطبقت نفس الشرح ,,

للمعلومية اول مافتحت محرر الفيجوال بيسك وجدت هذه الكتابة

Sub Document_open()

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary

End Sub

هل امسحها والصق الكود الموجود في المنتدى

ام الصقها معها

وكذالك السؤال الثاني اذا الصقت الكود الموجود في المنتدى ماذا افعل بعدها؟؟

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

[ابوخليل]

اخي :

المثال يعمل عندي %

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

وانت سألتني عن الطريقة لإضافة ملفات أخرى ، فالكود الذي في المنتدى هو نفسه الذي في المثال

ملحوظة : خفض امان الماكرو لديك الى ادنى مستوى

[المستشار22]

نعم بعد خفض امان الماكرو بدأيعمل الملف الصوتي....

لكن افهم من هذا ان الماكرو لايعمل بالاعدادات الافتراضية للماكرو وهو الأمان المرتفع ؟؟

هل فيه امكانية بأن يعمل في الأمان المرتفع؟؟

[شريف خضير]

شكراً على هذه المعلومة .

[المستشار22]

كل عام وانتم بخير

واسأل الله ان يعيننا واياكم فيه على الصيام والقيام وصالح الأعمال

اشكرك اخي ابو الانس

واتمنى الاجابة على هذا السؤال:

هل فيه امكانية بأن يعمل في الأمان المرتفع؟؟ وهو الاعداد الافتراضي للوورد

لأنه يصعب ان أنبه كل شخص أرسل اليه الملف ان اقول له اجعل أمان الماكرو منخفض لديك حتى يعمل الملف الصوتي !

تم تعديل أغسطس 13, 2010 بواسطه المستشار22

[المستشار22]

للرفع

ولتأكيد السؤال وفقكم الله

لكن افهم من هذا ان الماكرو لايعمل بالاعدادات الافتراضية للماكرو وهو الأمان المرتفع ؟؟

هل فيه امكانية بأن يعمل في الأمان المرتفع؟؟