تقييم الموضوع :
  • 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 ك ب / التحميلات : 14)
الرد
تم الشكر بواسطة:
#6
وعليكم السلام ورحمة الله وبركاته

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

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

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

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

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

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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب كود بسيط تحويل القريد فيو في الوورد نور الهدى الهدى 2 41 منذ 11 ساعة مضت
آخر رد: dasktop
  محتاج اضافة داخل الفيجوال بيسك 2010 Mohamed Magdy 2 72 14-11-18, 02:55 PM
آخر رد: Mohamed Magdy
  سؤال بخصوص الفيجوال بيسك واكسس mostafa hasanein 2 83 07-11-18, 08:50 PM
آخر رد: ahmadpal
  [سؤال] هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو كوثر محمد 10 1,227 02-11-18, 10:49 PM
آخر رد: MKSaeed
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 129 11-10-18, 03:30 PM
آخر رد: Simo1991
  [سؤال] مشكلة في إرسال بيانات من الفيجوال الى الوورد سعود الشامان 7 551 08-10-18, 01:56 AM
آخر رد: عبد العزيز البسكري
  استخدام النسخ المختلفة من الفيجوال بيسيك مبرمج مصرى 2 120 27-09-18, 07:25 PM
آخر رد: مبرمج مصرى
  هل يمكن عمل برنامج دورى كرة قدم على الفيجوال abo philomena 4 266 15-08-18, 06:08 AM
آخر رد: elgokr
  [سؤال] السلام عليكم لدي مشكل في الفيجوال بيسك safox 4 210 15-06-18, 04:54 AM
آخر رد: elgokr
  [سؤال] مشكله فى ادخال قاعد البيانات الي الفيجوال Mahmoud Nasser 1 257 10-06-18, 04:34 PM
آخر رد: elgokr

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


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