Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Mailmerge doc will not open from Access 2003
I am using Access 2003 to open a Mail Merge document using the following VB code. The document uses a text file as the datasource. This worked in Access 2000, but the document will not open in Access 2003, word opens and the status bar displays "docname.doc: 1,222 characters..." then the document never opens. If I remove the "WordDoc.Close (False)" line the document will display, but not with the updated merge data from the datasource, instead it opens with the saved data from the "template" or original merge document. As I said this code works perfectly in earlier versions of Access.
Function MergeWord(strDocName As String) Dim WordApp As Object ' running instance of word Dim WordDoc As Object ' one instance of a word doc Dim strActiveDoc As String ' doc name (no path) Dim lngWordDest As Long ' const for dest, 0 = new doc, 1 = printer On Error GoTo CreateWordApp Set WordApp = GetObject(, "Word.Application") On Error Resume Next Set WordDoc = WordApp.Documents.Open(strDocName) strActiveDoc = WordApp.ActiveDocument.Name With WordDoc.MailMerge .Destination = 0 ' 0 = new doc .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = True With .DataSource .FirstRecord = 1 .LastRecord = 1 End With .Execute Pause:=True End With WordDoc.Close (False) WordApp.Visible = True WordApp.Windows(WordApp.Windows.Count).Activate AppActivate "Microsoft Word" WordApp.WindowState = 0 'wdWindowStateRestore Set WordApp = Nothing Set WordDoc = Nothing DoEvents Exit Function CreateWordApp: ... End Function Any help would be appreciated. Thanks ucmlamb |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Word applies direct format on File open | Microsoft Word Help | |||
Word 2003 slow to open | Microsoft Word Help | |||
Access to Word link 2003 | Mailmerge | |||
How to use access query computed fields in Word mailmerge | Mailmerge | |||
Word 2003 Hangs when I try to Open a Doc | Microsoft Word Help |