When Bold line is executed the error appears.
Private Sub cmEOD_Click()
'1-populate tblLetterInfo
Dim Wrd As New Word.Application
Dim strMergeDoc As String
Dim strFileTempWord As String
Dim strFileWord As String
Dim objApp As Object
Dim MyQuery As String
Dim Word As Word.Application
Dim Form As Word.Document
Dim strSource As String
strSource = "F:\ISMA\WORD\WriteToWord.accdb"
strMergeDoc = "F:\ISMA\wordtemplates\NSF1.dotx"
Set Word = CreateObject("Word.Application")
Word.Documents.Open strMergeDoc
With Word
Word.Visible = True
.ActiveDocument.MailMerge.OpenDataSource Name:=strSource, linktosource:=True, ReadOnly:=True, addtorecentfiles:=False, Connection:="tblLetterInfo"
.ActiveDocument.SaveAs2 strFileTempWord
If .ActiveDocument.MailMerge.State = wdMainAndDataSource Then
.ActiveDocument.MailMerge.Destination = wdSendToNewDocument
.ActiveDocument.MailMerge.Execute
End If
End with
............................................................................................
Thanks
Norbert
Posted by: drnorbert@msn.com
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (1) |
Tidak ada komentar:
Posting Komentar