كيف أضع خلفية صوتية

[s-click]

كيف أضع خلفية صوتية في ملف وورد لكي أسمعها وأنا أقرأ الملف

[عبد الله فتحي]

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

أخي العزيز s-click ... بعد ألف تحية:

أعتذر عن كون الرد متأخراً بعض الشيء، ولكن إليك هذا الحل ربما يفيدك:

يمكنك تشغيل ملف صوتي عند بداية تشغيل الملف كالتالي:

1/ قم باختيار أدوات >> ماكرو >> محرر فيجول بيسيك.

2/ ستظهر لك شاشة جديدة تحتوي في جانبها الأيسر على النافذة Project، وستجد فيها بندين رئيسيين هما Normal و Project والفرق بينهما أننا لو أضفنا على الـ Normal فهذا يعني أن ما سنضيفه سيتم تطبيقه على القالب العمومي، وبالتالي سيقوم بتشغيل الملف الصوتي كلما نقوم بتشغيل أي ملف وورد، أما لو أضفنا على الـ Project فإنه سيتم تطبيقه على هذا الملف فقط وهذا ما سنتعامل على أساسه الآن ... والاختيار الأول والأخير لك ...

3/ الآن قم بالنقر على رمز الـ Project بزر الماوس الأيمن ثم اختر Insert ثم Module .. هنا ستظهر لك شاشة على اليمين وربما تكون فارغة أو ممتلئة هذا لا يُهمنا الآن ...

4/ قم بالذهاب إلى أعلى هذه الشاشة واكتب ما يلي:

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _

(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Sub Autoopen()

xx = sndPlaySound("c:\windwos\media\Chimes.wav", 1)

End Sub

لاحظ أخي أننا في السطر الذي قبل الأخير كتبنا مسار ملف صوتي موجود مع الويندوز قم بتغييره إلى أي ملف صوتي آخر بشرط أن يكون من نوع wav ...

أخي العزيز مع خالص تحياتي ما قمنا بعمله سابقاً هو ماكرو بسيط استخدمنا لبرمجته لغة الفيجول بيسيك ... ونتيجته تشغيل الملف الصوتي عند كل تشغيل لملف الوورد ..

إذا كانت لديك خبرة سابقة بالفيجول بيسيك فلا شك أنك فاهم لكل الخطوات السابقة ...

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