17-03-18, 08:42 PM
(آخر تعديل لهذه المشاركة : 17-03-18, 08:57 PM {2} بواسطة سعود الشامان.)
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اخواني عندي إشكالية في مثال لإرسال البيانات إلى ملف وورد ( قالب )
لم تظهر لي مكتبة Microsoft.Office.Interop.Word
لكن قمت بإضافة مكتبة Microsoft Word 2016.0 Object Library
الكود بالكامل
كود :
Imports Microsoft.Office.Interop.Word
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim fileName As String = "C:\Users\سعود الشامان\source\repos\Print2\Print2\bin\Debug\test.dotx"
Dim myApp1 As New Application
Dim myDoc1 As New Document
myDoc1 = myApp1.Documents.Open(fileName)
myDoc1.Activate()
Dim bk As Bookmarks = myDoc1.Bookmarks
bk("dtSubject").Range.Text = DateTimePicker1.Value.Date
bk("Subject").Range.Text = TextBox1.Text
bk("FullName").Range.Text = TextBox2.Text
bk("Address").Range.Text = TextBox3.Text
Catch ex As Exception
MsgBox("Error")
Exit Sub
End Try
End Sub
End Class
استخدم فيجوال بيسك 2010 و 2017
كنت استخدم اوفيس 2007 حذفته وثبت اوفيس 2010 ونفس المشكلة وقمت بحذفه و تثبيت اوفيس 2016 وللأسف نفس المشكلة
ابشركم تم إصلاح المشكلة بعمل ( Clean ) للمشروع