تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن الخطا في الكود
#1
لماذا لا يفتح الوورد؟؟ انا عملت فورم جديد بسب اذا عرفت الوورد تعريف الداتا تيبل يصير خطا

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


الملفات المرفقة صورة/صور
       
الرد
تم الشكر بواسطة:
#2
add system.data in Reference
الرد
تم الشكر بواسطة:
#3
شو هاي؟؟ ضفت؟؟

ضايفها مني

ضايفها مني
الرد
تم الشكر بواسطة:
#4
يمكنك مشاهدة هذا الشرح اتمنى ان يفيدك
https://youtu.be/andDjzYHHC4

أو عن طريق شرح الاستاذ عبدالله
https://www.youtube.com/channel/UCU8ciS3...qmWv3gTIPg
الرد
تم الشكر بواسطة:
#5
شاهدت الشرح الاول ولم تنجح معي وهو نفس الكود

اذا يويجد مثال مصغر ممكن ترسلو لي عشكل مشروع
الرد
تم الشكر بواسطة:
#6
في حدا يستطيع مساعدتي؟؟
الرد
تم الشكر بواسطة:
#7
طباعة

الطباعة على الوورد من خلال الـفيجوال بيسك كل الاجزاء
الرد
تم الشكر بواسطة:
#8
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


ما الخطاء بلكود عند التشغيل ا=تضهر لي رساله عضو المجموعه المطلوب غير موجود
الرد
تم الشكر بواسطة:
#9
يقصد بها و الله اعلم مجموعة البوك مارك age1 و ما الى ذالك .
عطل كل سطر من السطور oDoc.Bookmarks("age1").Range.Text = Form10.TextBox3.Text على حدى الى ان تعرف اين الخطا او النقص في ملف الورد من اشارة مرجعية ناقصة .
الرد
تم الشكر بواسطة:
#10
.Filter = "word Document(*.docx)|*.docx|word 97-2003 Document(*.doc)|*.doc|Template(*.dotx)|*.dotx "
هذه الجمله لها علاقه لقد اعملت ما قلته لي ونفس المشكله هل يجب اختار بصيغه dotx ام لا يهم؟؟
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم