[ تمت الإجابة ]زر امر لفتح برنامج مصنوع على Vb6

أخي الكريم هذا كود لفتح ملف ورد جرب على مثالك

On Error Resume Next
   'فتح برنامج الورد
 Set monWd = CreateObject("Word.Application")
   ' فتح ملف الورد في نفس مسار القاعده
monWd.Documents.Open CurrentProject.Path & "\ahmedtharwat19.doc"

جرب و انا معك

مع التحيه ،،،

أبو مروان

اخي الكريم ابو مروان

شكرا لمرورك واهتمامك

ولكن لم تفلح الطريقة

بعطيني خطأ عند

monWd.Documents.Open CurrentProject.Path & "\ahmedtharwat19.doc"

أخي الكريم

ahmedtharwat19 هذا يجب تبديله باسم الملف لديك و الذي يكون بنفس مسار القاعده

جرب و اعلمني

مع التحيه ،،،

أبو مروان

اكيد اخي الكريم قمت بتبديل الاسم حسب المسار

وعملت اللازم ولم تفلح

واذا زبطت معك

ارسل لي الملف مع المرفق

اذا سمحت

اريد التنويه لشيء اخي الكريم

انه بعد تنفيذ المذكور اعلاه

لا يفتح الملف

وعندما احاول حذفه لا يقبل

وكأنه مفتوح بالذاكرة فقط

وعندما افتح الملف يدويا واغلقه

اعمل حذف فيتم ذلك

غريب

بعد إذن أخي أحمد ثروت ...

أخي الكريم أنا لا علم لدي بالفيجول بيسك وأنما هذا الكود خاص بالاكسس على كلاً هذا كود يوضع بوحدة نمطية :

Private Declare Function apiShellExecute Lib "shell32.dll" _
	Alias "ShellExecuteA" _
	(ByVal hwnd As Long, _
	ByVal lpOperation As String, _
	ByVal lpFile As String, _
	ByVal lpParameters As String, _
	ByVal lpDirectory As String, _
	ByVal nShowCmd As Long) _
	As Long

Public Const WIN_NORMAL = 1
Public Const WIN_MAX = 3
Public Const WIN_MIN = 2

Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&


Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
	lRet = apiShellExecute(hWndAccessApp, vbNullString, _
			stFile, vbNullString, vbNullString, lShowHow)

	If lRet > ERROR_SUCCESS Then
		stRet = vbNullString
		lRet = -1
	Else
		Select Case lRet
			Case ERROR_NO_ASSOC:
				varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
						& stFile, WIN_NORMAL)
				lRet = (varTaskID <> 0)
			Case ERROR_OUT_OF_MEM:
				stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
			Case ERROR_FILE_NOT_FOUND:
				stRet = "Error: File not found.  Couldn't Execute!"
			Case ERROR_PATH_NOT_FOUND:
				stRet = "Error: Path not found. Couldn't Execute!"
			Case ERROR_BAD_FORMAT:
				stRet = "Error:  Bad File Format. Couldn't Execute!"
			Case Else:
		End Select
	End If
	fHandleFile = lRet & _
				IIf(stRet = "", vbNullString, ", " & stRet)
End Function

وهذا الكود يوضع تحت زر الأمر :

Call fHandleFile(CurrentProject.Path & "\ALZHRANI.ppsx", WIN_NORMAL)

آمل أن يفيدك ...

اخي الكريم ابو رهف

شكرا لمرورك وتعاونك

ولكن لا يوجد في البور بوينت مكان للوحدات النمطية

انا بانتظارك اخي ahmedtharwat19

مشكور أبو رهف

لكن هذا معقد جدا

أخي الكريم

نسيت أضيف الكود التالي

monWd.Visible = True

ومرفق مثال

مع التحيه ،،،

أبو مروان

MEDO19.rar

معذرة أخي الكريم فقد اختلط علي الأمر كنت أفكر أنك تريد فتح ملف بور بونت من الفيجول بيسك ...

على كلاً بالنسبة لسؤالك اتمنى أن تجد جوبه لدى الأخ أحمد ثروت فلم اتعامل مع البور بونت اطلاقاً ...

ولا أنا أخي أبو رهف

هو نفس الكود المستخدم فوق و تم اضافه كود آخر ليجعله مرئيا

و تم ارفاق ملف في المشاركه السابق لبيان ذلك

أخي hema

هل نفعت معك ؟؟

أخبرني

منتظر ردك ؟؟

مع التحيه ،،،

أبو مروان

بســم الله الـرحمــن الرحيــم

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

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

اختكم في الله روان

RR.zip

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

اسفه على ارفاق الملف لاني فهمت السؤال خطاء

وبعد الاطلاع على مثال اخي ابو مروان تأكدت ان المرفق ليس المطلوب

ولكن يفيد من يمر على الموضوع

اختك في اله روان

جزاكم الله خيرا جميعا على تفاعلكم.. واخلاصكم

هذا الموضوع بعد اذن الجميع ينقل الى قسم اوفيس العام.. مع التحية