أخي الحبيب بارك الله فيك
بالنسبة لنظام windows 7 64bit
يركب عليه office 32 أو office 64 ل 2007 و 2010 .
أما نظام windows 7 32 bit
لا يركب عليه سوى office 32 سواءً 2007 أو 2010
تأكد من أنظمة الأوفس لديك .
أخي ما عليك أمر جرب هذا الكود حسب ما في مشاركتك الأخيرة
Option Compare Database
Declare PtrSafe Function SetTimer Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Public Declare PtrSafe Function KillTimer Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hWndParent As Long, _
ByVal hWndChildAfter As Long, _
ByVal lpszClassName As String, _
ByVal lpszWindowName As String _
) As Long
Declare PtrSafe Function SendMessageByNum Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Const EM_SETPASSWORDCHAR = &HCC
Public str_Title$, TimerId&