[danti]

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

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

شكراً لك عزيزي

أنا استخدم الطريقة التقليدية في تصدير البيانات إلى الوورد وهي طريقة ممتازة وقد أعجبتني كثيراً وأغنتني عن التقارير مثل كريستال وغيره..

لا توجد أي مشكلة في تصدير البيانات سوى ظهور رسالة مزعجة.. وأعتقد أنها رسالة خاصة بالوورد ولا علاقة لها بالبرمجة..

الكود الذي استخدمه لتصدير البيانات:

كود :

   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)
           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

والرسالة التي تظهر واضطر للبحث عنها بين الملفات والبرامج المفتوحة على سطح المكتب باستخدام ALT+TAB وعند وجودها يتوجب الضعط على موافق لكي يتم الانتقال للورود وتصدير البيانات..

مشوااار ويأخذ وقت خاصة أن المشروع خاص بالزوار:

Image14.jpeg - MediaFire

هل هناك طريقة لتصدير البيانات تلقائياً دون ظهور هذه الرسالة المزعجة.. أو طريقة لطباعة البيانات دون الدخول لمستند الوورد ( سيكون ذلك أفضل بكثير )..

بحثت كثيراً عن حل لهذه المشكلة ووجدت الجميع يتحدث عن موضوع للأخ/ عبدالله الدوسري وقمت بمتابعة جميع مقاطعه ولكن تظهر اخطاء واعتقد ان السبب لأن الموضوع قديم جداً (أكثر من 8 سنوات).

ولم أجد مقطعاً أو موضوعاً يتحدث عن تصدير البيانات بالتفصيل مثل موضوع الأخ/ عبدالله الدوسري.. تخيل من 8 سنوات..!!!

هذا هو مشروع تصدير البيانات إلى الوورد فيجوال 2019:

https://www.mediafire.com/file/xg9doqfxa...i.zip/file