s-click قام بنشر يوليو 26, 2003 مشاركة قام بنشر يوليو 26, 2003 كيف أضع خلفية صوتية في ملف وورد لكي أسمعها وأنا أقرأ الملف رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر أغسطس 22, 2003 مشاركة قام بنشر أغسطس 22, 2003 بسم الله الرحمن الرحيم أخي العزيز 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 ... أخي العزيز مع خالص تحياتي ما قمنا بعمله سابقاً هو ماكرو بسيط استخدمنا لبرمجته لغة الفيجول بيسيك ... ونتيجته تشغيل الملف الصوتي عند كل تشغيل لملف الوورد .. إذا كانت لديك خبرة سابقة بالفيجول بيسيك فلا شك أنك فاهم لكل الخطوات السابقة ... إذا كان لديك أي استفسار على هذه الطريقة أو أنها لم تنفع أرجو أن تكتب ذلك هنا ولك مني خالص التحية ... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.