13-07-15, 02:47 AM
(آخر تعديل لهذه المشاركة : 13-07-15, 10:30 AM {2} بواسطة Ahmed_Mansoor.
تعديل السبب: ترجمه لجزء من النص إلى العربيه
)
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 وما اريده هل هناك كود احسن وشكرا
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 وما اريده هل هناك كود احسن وشكرا