السلام عليكم ورحمه الله وبركاته
اساتذتي الكرام حياكم الله:
سؤالي :
كيف يمكن ان افتح ملف ورد محفوظ لدي من خلال الفيجول بيسك والكتابة على ذلك الملف من خلال علامة مرجعية معينة
ومن ثم طباعة ذلك الملف
وماهي المكتبة المطلوبة لعمل ذلك
مع فائق الاحترام..
السلام عليكم ورحمة الله وبركاته
أضف المرجع: 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
شكراً على ردكم الوافي
لكن لدي سؤال آخر
عند اضافة الكود السابق يتم حفظ المعلومات بشكل تلقائي بمستند الورد علماً بأنه قالب ولا أريد حفظ البيانات بداخله كيف يمكنني عدم حفظ البيانات دون الحاجة لإجراء حلقة بالتراجع عن التغيرات المدخلة ولكم جزيل الشكر
(26-03-18, 02:52 PM)أبوسعود كتب : [ -> ]شكراً على ردكم الوافي
لكن لدي سؤال آخر
عند اضافة الكود السابق يتم حفظ المعلومات بشكل تلقائي بمستند الورد علماً بأنه قالب ولا أريد حفظ البيانات بداخله كيف يمكنني عدم حفظ البيانات دون الحاجة لإجراء حلقة بالتراجع عن التغيرات المدخلة ولكم جزيل الشكر
أعتقد هذا ما تبحث عنه ابو سعود
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