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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود فتح و اغلاق قاعدة بيانات gharib 8 152 24-09-17, 10:24 PM
آخر رد: عبد العزيز البسكري
Question [vb6.0] كيف اغلاق ملف قاعدة بيانات اكسس مفتوحة من خلال برنامجي ؟؟ Microformt 3 44 21-09-17, 04:20 PM
آخر رد: Amir_alzubidy
  من يقدر استبدال قاعد بيانات المثال المرفق ب (sqlite) scsi7000 1 59 19-09-17, 01:06 PM
آخر رد: Amir_alzubidy
  من لديه طريقه اذا امتلئت قاعده البيانات اكسس يقوم البرنامج بتصنيع قاعده بيانات من نفس scsi7000 7 156 18-09-17, 01:41 PM
آخر رد: عبد العزيز البسكري
  [كود] انشاء مجلدات من بيانات سجل ragabsayed 1 46 17-09-17, 09:18 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية عرض نص موجود على الانترنت داخل اداة مربع نص (الحصول على بيانات من صفحة ويب) Mohamad Anan 10 329 10-09-17, 11:54 PM
آخر رد: Mohamad Anan
Rainbow [vb6.0] ماهي قاعدة بيانات اكسس و اين تستعمل و مثال مفتوح المصدر للفهم anoname 1 81 30-08-17, 07:34 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] إرفاق صورة و حفظها في قاعدة البيانات و إعادة جلبها larbihamri 2 115 14-08-17, 05:14 PM
آخر رد: larbihamri
  [سؤال] فتح جدول قاعدة بيانات أكسيس Abdellah 9 259 09-08-17, 06:49 PM
آخر رد: Abdellah
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 12 1,393 03-08-17, 11:38 AM
آخر رد: hannileo

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


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