زر يفتح ملف وورد

[العوام]

عندي قاعدة بيانات واحيانا اضطر لطباعة على برنامج الوورد

فهل هناك اختصار يعني يكون موجود زر عندما اضغط عليه يفتح لي صفحة الووورد دون الخروج الاكسس؟؟

وجزيتم الجنة..

[ابوخليل]

Dim dbs
dbs = Shell("winword.exe", vbMaximizedFocus)

 

[العوام]

تشكر عزيزي بارك الله بك وبعلمك

[sofiane05552]

في 01/05/2018 at 09:31, ابوخليل said:

Dim dbs
dbs = Shell("winword.exe", vbMaximizedFocus)

 

استاذ بارك الله فيك ممكن كود دخول الى الاكسل ايضا

[ابوخليل]

Dim dbs
dbs = Shell("EXCEL.EXE", vbMaximizedFocus)
End Sub