كود في الوورد

ملف وورد :blink:

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpCommandString As String, ByVal lpReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub autoopen()
	 'فتح الباب
	 OpenCDDoor
	 'إغلاق الباب
	 CloseCDDoor
MsgBox "المزمجر : لا تنسونا من دعوة صالحة"


End Sub

Public Sub OpenCDDoor()

Dim retval As Long

retval = mciSendString("set CDAudio door open", "", 0, 0)

End Sub


Public Sub CloseCDDoor()

Dim retval As Long

retval = mciSendString("set CDAudio door closed", "", 0, 0)

End Sub

و السلام عليكم

NOUR_MACRO.rar

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

شكرا اخوي المزمجر....... بس الملف المرفق مابيعملش حاجه؟؟؟؟

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

OpenCD.zip

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

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

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpCommandString As String, ByVal lpReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub OpenCDDoor()
	Dim retval As Long
	retval = mciSendString("set CDAudio door open", "", 0, 0)
End Sub

Private Sub CloseCDDoor()
	Dim retval As Long
	retval = mciSendString("set CDAudio door closed", "", 0, 0)
End Sub

Private Sub Document_Open()
	Call OpenCDDoor
End Sub

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

شكراً

السلام عليكم

فقط ضع الكود في موديول الوورد

وهذا المرفق مرة أخرى

word.rar