تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] دمج المراسلات Word مع قاعدة بيانات MDB
#1
Dim Wd As New Word.Application
       Dim wdMMail As Word.MailMerge
           
       Set Wd = CreateObject("Word.Application")
       Wd.Documents.Open App.Path & "\eau.doc"
       Set wdMMail = Wd.ActiveDocument.MailMerge
       With Wd
           .ActiveWindow.Visible = True
           .DisplayAlerts = False
           wdMMail.OpenDataSource Name:=App.Path & "\base.mdb", _
           Format:=wdOpenFormatEncodedText, ConfirmConversions:=True, ReadOnly:=True, sqlstatement:="select * from [table]"
           
        ' , ReadOnly:=False, LinkToSource:=True ', Encoding:=1252
           wdMMail.Destination = wdSendToNewDocument
           wdMMail.Execute pause:=False
         '
       'Impression
         ' .ActiveDocument.PrintOut
         ' .ActiveDocument.PrintPreview
     
       'Fermeture du document et de Word
     
         .ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges ' True
         '.Quit
 
  End With
استعملت هدا  الكود من اجل عمل دمج المراسلات Word مع قاعدة بيانات mdb وما اريده هل هناك كود احسن وشكرا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  راسال ةاستقبال صورة من قاعدة بيانات اكسس الي الايميل محمد حمد محمد سليمان 0 64 23-06-19, 12:46 AM
آخر رد: محمد حمد محمد سليمان
  [vb6.0] حل مشكلة حفظ الصورة في ملف وليس على قاعدة البياناتDataBase عبدالقادرعواد 4 492 19-06-19, 12:01 PM
آخر رد: مصمم هاوي
  مشكلة في قاعدة البيانات dr.mostashar 2 156 28-04-19, 02:44 PM
آخر رد: sendbad100
  سؤال بخصوص النقط والفواصل العشرية وغيرها في قاعدة البيانات hannileo 3 279 24-01-19, 01:58 PM
آخر رد: عبدالله الصافي
  كيفية عمل ازرار مأخوذة او مربوطة مع قاعدة البيانات hannileo 6 462 14-01-19, 10:07 AM
آخر رد: hannileo
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 4 2,600 25-12-18, 12:58 PM
آخر رد: aboezzat84
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 432 25-12-18, 12:34 PM
آخر رد: aboezzat84
  تعبئة بيانات الكومبوكس من جدول SQLSERVER مصمم هاوي 1 249 09-12-18, 11:27 PM
آخر رد: مصمم هاوي
  [vb6.0] جلب بيانات من combo وتحديد webbrowser tempman 2 325 05-12-18, 01:04 PM
آخر رد: tempman
  طريقة تغيير نوع بيانات الحقل داخل جملة الاستعلام عبدالله الصافي 3 382 05-11-18, 03:30 AM
آخر رد: حريف برمجة

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


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