[سعود الشامان]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

اخواني عندي إشكالية في مثال لإرسال البيانات إلى ملف وورد ( قالب )

https://youtu.be/andDjzYHHC4

لم تظهر لي مكتبة 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 ) للمشروع