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

[العوام]

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

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

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

[ابوخليل]

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

 

[العوام]

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

[sofiane05552]

  في 1‏/5‏/2018 at 08:31, ابوخليل said:

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

 

Expand  

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

[ابوخليل]

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