تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل دمج مرسلات من الوورد إلى الفيجوال (mail merge )
#1
السلام عليكم ورحمة وبركاته

Huh  الموضوع اتعبني بشدة







هو عمل دمج مرسلات mail merge  من الفيجوال بيسك إلى word  بحيث تنقل بيانات مجموعة من الطلاب من الداتا قريدفيو  وتكون بيانات كل طالب موجودة في صفحة مستقلة علما بأن هناك قالب جاهز موجود [b]في الوورد  ( Temp file )  [/b]















واستخدمت ال book mark ونجحت معي الطريقة بنقل بيانات أول طالب فقط لكن للأسف لم أستطع أن أجعله يكمل نقل بقية الطلاب الآخرين ( طبعا تجري عملية الدمج داخل ملف واحد به أكثر من صفحة )



باختصار  عملي شبيه بدمج المرسلات في الوورد ولكن أريد عمله عن طريق الفيجوال

وقد استخدمت الكود التالي









Private Sub Button6

_Click(sender As Object, e As EventArgs) Handles Button6.Click



Dim Filename As String = "D:\visual3\test.dotx"

Dim myapp1 As New Object

Dim mydoc1 As New Object

myapp1 = CreateObject("Word.Application")

mydoc1 = myapp1.documents.open(Filename)

Dim bk As Bookmarks = mydoc1.Bookmarks

Dim last As Integer = DataGridView1.Rows.Count - 1



Dim m As Integer =0 

mydoc1 = myapp1.Documents.Open(Filename)

'objWordDotx.tables.add(objWordDotx.range(0, 0), DataGridView1.Rows.Count, 3)

Do

bk("name").Range.Text = Me.DataGridView1.Rows(m).Cells("ar_name").Value



bk("idnum").Range.Text = Me.DataGridView1.Rows(m).Cells("idnum").Value



bk("code").Range.Text = Me.DataGridView1.Rows(m).Cells("idNumber").Value



m = m + 1



Loop Until m = last

myapp1.visible = True
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

اهلاً بك اخى جيولوجي مبتدئ

بخصوص الكود داخل الزر
قم باستخدام الكود بهذا الشكل
كود :
       Dim Filename As String = "D:\visual3\test.dotx"
       Dim myapp1 As New Object
       Dim mydoc1 As New Object
       myapp1 = CreateObject("Word.Application")
       mydoc1 = myapp1.documents.open(Filename)
       Dim bk As Bookmarks = mydoc1.Bookmarks
       Dim last As Integer = DataGridView1.Rows.Count - 1
       Dim m As Integer = 0
       mydoc1 = myapp1.Documents.Open(Filename)
       'objWordDotx.tables.add(objWordDotx.range(0, 0), DataGridView1.Rows.Count, 3)

       For ii As Integer = 0 To DataGridView1.Rows.Count - 1
           bk(ii)("name").Range.Text = DataGridView1.Rows(ii).Cells("ar_name").Value
           bk(ii)("idnum").Range.Text = DataGridView1.Rows(ii).Cells("idnum").Value
           bk(ii)("code").Range.Text = DataGridView1.Rows(ii).Cells("idNumber").Value
       Next
       myapp1.visible = True

وان شاء الله سيعمل معاك بدون اى مشكلة

أو اتمنى ارفاق المشروع فى حالة لم يعمل الكود حتى يتم اختبار الكود الكلى بعد التعديل
واعادة رفعه لك مجدداً لا وكذلك ملف dotx

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة
#3
لك جزيل الشكر
يعجز اللسان عن رد الجميل أجرب الكود خلال الأيام القادمة وسوف أوافيك بالذي يحصل معي
  آسف لتأخري في الرد لظروفي الخاصة
الرد
تم الشكر بواسطة: elgokr
#4
(26-08-18, 01:20 AM)جيولوجي مبتدئ كتب : لك جزيل الشكر
يعجز اللسان عن رد الجميل أجرب الكود خلال الأيام القادمة وسوف أوافيك بالذي يحصل معي
  آسف لتأخري في الرد لظروفي الخاصة


الشكر لله

لا عليك اخى الحبيب وخد وقتك كما تشاء

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#5
r

السلام عليكم ورحمة الله وبركاته وبعد
أخي elgokr

سأقوم بإرفاق المشروع  شاكراً  ومقدرا لك على إعطائي جزءاً من وقتك وفقك الله

سأرفق المشروع + قاعدة البيانات + ملف الوورد المراد الدمج به
طبعا البرنامج غير مرتب وهو في مرحلة الإعداد لذا أرجو عدم الانزعاج من عدم الترتيب
الذي استطعت  التوصل إليه عندما أنقر على الزر bottuon 9  يقوم بنقل بيانات السجل الأول من الداتا قريد فيو ولا ينقل بقية السجلات


الملفات المرفقة
.rar   mailMerg to word.rar (الحجم : 406.94 ك ب / التحميلات : 16)
الرد
تم الشكر بواسطة:
#6
وعليكم السلام ورحمة الله وبركاته

تم الاطلاع على السورس الموجود بالمرفق
والطريقة التى تريد التعامل معها غير صحيحة تماماً

يبدو نك توم بتطبي كود د حصلت عليه ولا يمكنك التعامل معه
على اى حال حتى الامور تكون ابسط اليك لديك حلاً من اثنين

اليك ان تقوم بعمل كود لانشاء ملف ورد
ثم فتح الملف الذى تم انشائه للقراءة والكاتبة
ثم يقوم بانشاء صفحة جديدة بعدد البيانات فى الداتا جريد
وجعل كل صفحة تحتوى على البيانات التى سيتم ارسالها من الداات جريد
ثم عمل حفظ للملف ومن ثم  اغلاقه

وطبعاً فى احالة دى ستاخد منك مراحل دى كلها 

بينما اذا قمت بعمل تقرير reportviewer
سيكون ملخص كل ما تريد فعله كلياً وبمجرد عرض التقرير 
يمكنك تحويله لكل من Word , Excel , PDF مع الطباعة

وانا انصحك بالخطوة الثانية لتمكينك يهولة تنسيق وعمل التصميم
دون عناء وغلبة عن طريق تعاملك مع كود انشاء الـ Word

اليك رابط التالى دورة التعامل مع reportviewer

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اضيف Adobe pdf reader الى الفيجوال بيسك 2008 aftfm 1 120 06-10-20, 12:41 AM
آخر رد: abdou
  [VB.NET] الكريستال ريبورت لاتظهر عندي في الفيجوال بيسك 2015 tarekalsuhairi 1 110 02-10-20, 04:02 PM
آخر رد: Rabeea Qbaha
  كيف يتم عمل قناع ادخال للتيسكت بوكس في الفيجوال بيسك دوت نت؟ adnan gharbi 2 157 15-09-20, 02:53 PM
آخر رد: adnan gharbi
  هل يجب اضافة ملف الريبورت فيور مع مشروع الفيجوال ستوديو adnan gharbi 2 228 02-09-20, 09:27 PM
آخر رد: adnan gharbi
  أدوات التقارير غير موجودة فى الفيجوال أرجو المساعدة talatm 7 344 26-08-20, 01:57 AM
آخر رد: talatm
Exclamation [سؤال] اريد حل لمشكلة في الفيجوال ستوديو 2015 Mina Botros 4 450 30-07-20, 07:54 AM
آخر رد: Mina Botros
  طريقه استخدام web browser فى الفيجوال بحيث يعرص فاعده بيانات اكسس خالد كامل1 0 244 20-07-20, 06:13 PM
آخر رد: خالد كامل1
  هل يمكن تحويل تطبيق من لغة الفيجوال بيسك إلى الأندرويد Hazem1 5 611 06-06-20, 11:57 PM
آخر رد: WaeLx
  [سؤال] خاص بالأداة DataGridView في الفيجوال بيسك ahmedtag200 0 219 25-05-20, 12:29 PM
آخر رد: ahmedtag200
  [سؤال] أنا عايزه رابط مكتبه diveexpress الفيجوال بيسك 2013 منه 2 287 24-05-20, 03:35 AM
آخر رد: منه

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


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