[أبوسعود]

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

سؤالي :

كيف يمكن ان افتح ملف ورد محفوظ لدي من خلال الفيجول بيسك والكتابة على ذلك الملف من خلال علامة مرجعية معينة
ومن ثم طباعة ذلك الملف

وماهي المكتبة المطلوبة لعمل ذلك 

مع فائق الاحترام..

[خالد]

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


أضف المرجع: Microsoft Word xx.x Object Library

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim oWord As New Word.Application

   ' فتح مستند الوورد
   Dim oDoc As Word.Document = oWord.Documents.Open("C:\mydocument.doc")

   'تغيير العلامات المرجعية
   oDoc.Bookmarks.Item("إسم العلامة المرجعية").Range.Text = "النص المراد إدراجه"

   'طباعة المستند
   oWord.PrintOut()

   ' التراجع عن التغييرات
   For i = 1 To 100
       oDoc.Undo()
   Next

   'إغلاق المستند
   oDoc.Close()

   'الخروج من الوورد
   oWord.Quit()

End Sub

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

[عبدالله الدوسري]

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

https://vb4arb.com/vb/attachment.php?aid=11385

[أبوسعود]

شكراً على ردكم الوافي
لكن لدي سؤال آخر 
عند اضافة الكود السابق يتم حفظ المعلومات بشكل تلقائي بمستند الورد علماً بأنه قالب ولا أريد حفظ البيانات بداخله كيف يمكنني عدم حفظ البيانات دون الحاجة لإجراء حلقة بالتراجع عن التغيرات المدخلة ولكم جزيل الشكر

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

شكراً على ردكم الوافي
لكن لدي سؤال آخر 
عند اضافة الكود السابق يتم حفظ المعلومات بشكل تلقائي بمستند الورد علماً بأنه قالب ولا أريد حفظ البيانات بداخله كيف يمكنني عدم حفظ البيانات دون الحاجة لإجراء حلقة بالتراجع عن التغيرات المدخلة ولكم جزيل الشكر

أعتقد هذا ما تبحث عنه ابو سعود

https://youtu.be/andDjzYHHC4

[أبوسعود]

السلام عليكم ورحمه الله وبركاته
احبتي في الله:
لدي سؤال متعلق بملف الورد
كيف يمكن التحكم بجدول موجود ضمن مستند الورد المفتوح من قبل الفيجول بيسك كأن أضيف حقل أو احذف حقل أو اقوم بالتنسيق على الجدول كإضافة حدود لخلايا الجدول وإلى آخره يرجى التكرم بالرد على سؤالي وشكراً

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

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

لا أتعقد بأنه يمكنك ذالك , لكن يمكنك عمل عدة قوالب ( نماذج ) وورد

واستخدام اف الشرطية : ( مثال بسيط )

كود :

       Dim fileName As String = "C:\Users\سعود الشامان\source\repos\Print2\Print2\bin\Debug\test5.dotx"

       If TextBox1.Text = Nothing Then

           fileName = "C:\Users\سعود الشامان\source\repos\Print2\Print2\bin\Debug\test3.dotx"

       End If