(31-03-23, 03:36 PM)sanyor77 كتب : لمساعدتك في حل المشكلة المتعلقة بتصدير البيانات إلى Microsoft Word وظهور رسالة مزعجة، يرجى توفير المزيد من المعلومات حول الرسالة المزعجة التي تظهر والخطوات التي تتبعها عند محاولة تصدير البيانات. هذا سيساعدني على فهم المشكلة بشكل أفضل وتوفير إرشادات أو حلول ممكنة.
إذا كان بإمكانك إرفاق جزء من الكود الذي تستخدمه لتصدير البيانات إلى Word وأي رسائل خطأ أو استثناء تظهر، فذلك سيكون مفيدًا لتشخيص المشكلة وإيجاد حل مناسب.

اقترح نتكلم هنا افضل بنفس الموضوع وشكرا لك

(31-03-23, 05:57 PM)Taha Okla كتب : عندما تظهر رسالة في برامج أوفيس أن هذا الملف للقراءة فقط (ولم تكن ضبطت إعدادات أن الملف للقراءة فقط)
يعني أن هذا الملف مفتوح تم فتحه من قبل ولا يمكنك التعديل عليه إلا إذا أغلقت النسخة السابقة.

ففي كودك تعطي أمر فتح الملف ولكنك لا تقوم بإغلاقه..

لذا :
عندما تقوم بفتح ملف عليك أن تقوم بإغلاقه بعد الانتهاء منه.
كي تستطيع التعامل معه في المرة التالية ..

(01-04-23, 02:03 AM)danti كتب :

(31-03-23, 05:57 PM)Taha Okla كتب : عندما تظهر رسالة في برامج أوفيس أن هذا الملف للقراءة فقط (ولم تكن ضبطت إعدادات أن الملف للقراءة فقط)
يعني أن هذا الملف مفتوح تم فتحه من قبل ولا يمكنك التعديل عليه إلا إذا أغلقت النسخة السابقة.

ففي كودك تعطي أمر فتح الملف ولكنك لا تقوم بإغلاقه..

لذا :
عندما تقوم بفتح ملف عليك أن تقوم بإغلاقه بعد الانتهاء منه.
كي تستطيع التعامل معه في المرة التالية ..

شكراً على ردك أخي طه

معلومة جديدة..

وقد بحثت عن الكود الذي يقوم بإغلاق المستند بعد فتحه.. ووجد هذا الموضوع وفيه رد للأخ الجوكر:

استفسار بسيط حول الطباعة الى مستند الوورد (vb4arb.com)

كود :

MyDoc_1 = MyApp_1.Documents.Open(FileName, ReadOnly:=True)

وقمت بإضافة الكود كالتالي:

كود :

   Private Sub Btn_Print_Click(sender As Object, e As EventArgs) Handles Btn_Print.Click
       Try

           Dim FileName As String = My.Application.Info.DirectoryPath & "\Vis_55.docx"

           Dim MyApp_1 As New Application
           Dim MyDoc_1 As New Document

           MyDoc_1 = MyApp_1.Documents.Open(FileName, ReadOnly:=True)

           MyDoc_1 = MyApp_1.Documents.Open(FileName)
           MyDoc_1.Activate()
           Dim BK As Bookmarks = MyDoc_1.Bookmarks
           BK("Vis_Day").Range.Text = Lbl_Vis_Day.Text
           BK("Vis_Date").Range.Text = Lbl_Vis_Date_Hjry.Text
           BK("Vis_Name").Range.Text = Txt_Vis_Name.Text
           BK("Vis_Name_2").Range.Text = Txt_Vis_Name.Text
           BK("Vis_ID").Range.Text = Txt_Vis_ID.Text
           BK("Vis_Nat").Range.Text = Txt_Vis_Nat.Text
           BK("Rel_Pat").Range.Text = Txt_Rel_Pat.Text
           BK("Num_Esc").Range.Text = Txt_Num_Esc.Text
           BK("Pat_Esc").Range.Text = Txt_Pat_Esc.Text
           BK("Pat_Name").Range.Text = Txt_Pat_Name.Text
           BK("Pat_Sec").Range.Text = Txt_Pat_Sec.Text
           BK("Emp_Name").Range.Text = Txt_Emp_Name.Text
       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub

       End Try

   End Sub

وقد انحلت المشكلة وأصبح يفتح المستند تلقائي دون ظهور الرسالة..

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

شكراً لكم ولعل هذا الموضوع يستفيد منه الكثيرين.