ممكن الخطا في الكود - نسخة قابلة للطباعة

ممكن الخطا في الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن الخطا في الكود (/showthread.php?tid=31682)

الصفحات: 1 2

ممكن الخطا في الكود - mostafa12 - 07-10-19

لماذا لا يفتح الوورد؟؟ انا عملت فورم جديد بسب اذا عرفت الوورد تعريف الداتا تيبل يصير خطا

هاي هي المشكله اريد ان اطبع معلومات بلتيكست بوكس الى ملف ورد منسق

RE: ممكن الخطا في الكود - nrkarat - 07-10-19

add system.data in Reference

RE: ممكن الخطا في الكود - mostafa12 - 07-10-19

شو هاي؟؟ ضفت؟؟

ضايفها مني

RE: ممكن الخطا في الكود - alshandodi - 07-10-19

يمكنك مشاهدة هذا الشرح اتمنى ان يفيدك
https://youtu.be/andDjzYHHC4

أو عن طريق شرح الاستاذ عبدالله
https://www.youtube.com/channel/UCU8ciS3i3ZXbIqmWv3gTIPg

RE: ممكن الخطا في الكود - mostafa12 - 07-10-19

شاهدت الشرح الاول ولم تنجح معي وهو نفس الكود

اذا يويجد مثال مصغر ممكن ترسلو لي عشكل مشروع

RE: ممكن الخطا في الكود - mostafa12 - 07-10-19

في حدا يستطيع مساعدتي؟؟

RE: ممكن الخطا في الكود - asemshahen5 - 07-10-19

طباعة

الطباعة على الوورد من خلال الـفيجوال بيسك كل الاجزاء

RE: ممكن الخطا في الكود - mostafa12 - 08-10-19

Imports word = Microsoft.Office.Interop.Word
Public Class Form12
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strpathopen As String = ""
Dim ofd As New OpenFileDialog
With ofd
.Filter = "word Document(*.docx)|*.docx|word 97-2003 Document(*.doc)|*.doc|Template(*.dotx)|*.dotx "
.FilterIndex = 3
.Title = "chose word file"
.FileName = "chose only word file"
.ShowDialog()
End With
If ofd.FileName <> "" Then
TextBox1.Text = ofd.FileName
strpathopen = ofd.FileName
End If

End Sub
Public Sub Txtbox_to_template(templatepath As String)
Try
Dim oword As Word.Application
Dim oDoc As New word.Document
oword = CreateObject("word.Application")
oDoc.Bookmarks("age1").Range.Text = Form10.TextBox3.Text
oDoc.Bookmarks("abod1").Range.Text = Form10.TextBox4.Text
oDoc.Bookmarks("hip1").Range.Text = Form10.TextBox5.Text
oDoc.Bookmarks("abcd").Range.Text = Form10.TextBox7.Text
oword.Visible = True

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim templatepath As String = ""
Txtbox_to_template(TextBox1.Text)
End Sub
End Class

ما الخطاء بلكود عند التشغيل ا=تضهر لي رساله عضو المجموعه المطلوب غير موجود

RE: ممكن الخطا في الكود - asemshahen5 - 08-10-19

يقصد بها و الله اعلم مجموعة البوك مارك age1 و ما الى ذالك .
عطل كل سطر من السطور oDoc.Bookmarks("age1").Range.Text = Form10.TextBox3.Text على حدى الى ان تعرف اين الخطا او النقص في ملف الورد من اشارة مرجعية ناقصة .