Advertisement
Advertisement
| 11.30.2007 at 09:47AM PST, ID: 22993709 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: |
Private Sub btnMailMergeEarly_Click()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("P:\Access Database\Contracts\BananaCt.doc")
wdDoc.MailMerge.Execute
wdApp.ActiveDocument.Protect wdAllowOnlyReading, , "jsic2633"
wdApp.ActiveDocument.SaveAs "C:\My Documents\Bananas.doc"
wdDoc.Close False
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing
End Sub
|