كيفية كتابة الكود اذا كان نظام اوفيس 64 او 32 بت Function if Office 64 bit or 32 bit

كيفية كتابة الكود اذا كان نظام اوفيس 64  او 32 بت Function if Office 64 bit or 32 bit

ان الكود في بيئة العمل 64 بت تتطلب اضافة كلمة PtrSafe قبل البدء بالكود وكما يلي:

#If VBA7 Then ' ...........................................................if User Have Office 64 bit
    Private Declare PtrSafe Function apiShowWindow Lib "user32" _
        Alias "ShowWindow" (ByVal hwnd As Long, _
              ByVal nCmdShow As Long) As Long
#Else ' .................................................................. if User Have Office 32 bit
    Private Declare Function apiShowWindow Lib "user32" _
        Alias "ShowWindow" (ByVal hwnd As Long, _
              ByVal nCmdShow As Long) As Long
#End If

في هذا المثال فانه سيتم التاكد من اصدار محرر الفجوال بيسك الحالي  فاذا كان الاصدار 7 فان النظام المستخدم (Office 64 bit) وعلية فانه سيقوم بتشغيل الوظيفة مع PtrSafe واذا كان غير ذلك فانه سيتم تشغيل الوظيفة بطريقة عادية وبالتالي هذه الوظيفة ستعمل بغض النظر عن البيئة المستخدمة.