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

الأخ الفاضل ...

PlayWav.zip

أرجوا أن يساعدك هذا المثال فى ما تريد إنجازه، بأستخدام Microsoft Word 2003

قم بفتح محرر (Visual Basic Editor: ALT+F11) وأضف:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub cmdPlaySound_Click()
	sndPlaySound ActiveDocument.Path & "\WinXPIBar.wav", 1
End Sub

Private Sub Document_Open()
	Call cmdPlaySound_Click
End Sub

ثم خفض مستوى أمان المكرو: من قائمة (Tools) -> (Macro) -> (Security) إلى المستوى (Medium) ثم أغلق الملف وأعد فتحه وبالطبع أختار (Enable Macros)

شكراً