كيف استدعي ملف وورد معين

عزيزي الفاضل

قم بعمل زر امر في نموذجك واعطه اسم

doc

ثم انتقل الى حدث وعند النقر اضغط على النقط الثلاث بجانب السهم لتفتح لك الوحده النمطيه ضع فيها هذا الكود

ملاحظه : امسح اول سطر واخر سطر لانه سوف يتكرر عند انشاء الحدث لزر الامر

Private Sub doc_Click()

    Dim LWordDoc As String
    Dim oApp As Object

    'Path to the word document
    LWordDoc = "c:\ss.doc"

    If Dir(LWordDoc) = "" Then
        MsgBox "Document not found."

    Else
        'Create an instance of MS Word
        Set oApp = CreateObject(Class:="Word.Application")
        oApp.Visible = True

        'Open the Document
        oApp.Documents.Open FileName:=LWordDoc
    End If

End Sub

وهذا ملف مرفق

doc.zip

ممتاز جدا

الله يعطيك العافية

100 %

شاكر لك جدا جدا

لا شكر على واجب والمنتدى وجميع الاعضاء في خدمتكم

الله يعطيك الف عافيه

بس اخوك بعده مبتدئ

اريد اسال ما هو معنى كل سطر