لماذا لا يفتح الوورد؟؟ انا عملت فورم جديد بسب اذا عرفت الوورد تعريف الداتا تيبل يصير خطا
هاي هي المشكله اريد ان اطبع معلومات بلتيكست بوكس الى ملف ورد منسق
هاي هي المشكله اريد ان اطبع معلومات بلتيكست بوكس الى ملف ورد منسق
ممكن الخطا في الكود
|
لماذا لا يفتح الوورد؟؟ انا عملت فورم جديد بسب اذا عرفت الوورد تعريف الداتا تيبل يصير خطا
هاي هي المشكله اريد ان اطبع معلومات بلتيكست بوكس الى ملف ورد منسق
07-10-19, 07:01 PM
add system.data in Reference
شو هاي؟؟ ضفت؟؟
ضايفها مني ضايفها مني
07-10-19, 07:26 PM
يمكنك مشاهدة هذا الشرح اتمنى ان يفيدك
https://youtu.be/andDjzYHHC4 أو عن طريق شرح الاستاذ عبدالله https://www.youtube.com/channel/UCU8ciS3...qmWv3gTIPg
شاهدت الشرح الاول ولم تنجح معي وهو نفس الكود
اذا يويجد مثال مصغر ممكن ترسلو لي عشكل مشروع
07-10-19, 08:54 PM
في حدا يستطيع مساعدتي؟؟
07-10-19, 09:06 PM
(آخر تعديل لهذه المشاركة : 07-10-19, 09:09 PM {2} بواسطة asemshahen5.)
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
08-10-19, 02:17 AM
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 ما الخطاء بلكود عند التشغيل ا=تضهر لي رساله عضو المجموعه المطلوب غير موجود
08-10-19, 02:25 AM
يقصد بها و الله اعلم مجموعة البوك مارك age1 و ما الى ذالك .
عطل كل سطر من السطور oDoc.Bookmarks("age1").Range.Text = Form10.TextBox3.Text على حدى الى ان تعرف اين الخطا او النقص في ملف الورد من اشارة مرجعية ناقصة . سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
08-10-19, 03:21 AM
.Filter = "word Document(*.docx)|*.docx|word 97-2003 Document(*.doc)|*.doc|Template(*.dotx)|*.dotx "
هذه الجمله لها علاقه لقد اعملت ما قلته لي ونفس المشكله هل يجب اختار بصيغه dotx ام لا يهم؟؟ |
|