William Hindman
wdhindman at dejpolsystems.com
Tue Feb 5 07:29:57 CST 2008
Rocky ...this has proven to be ultra reliable for me from A97 through A2K3 Function ShowBadges() Dim objWord As Word.Document Set objWord = GetObject("F:\Document Masters\Exhibitor Documents\ExhibitorBadges.doc", "Word.Document") ' Make Word visible. objWord.Application.Visible = True ' Set the mail merge data source as the EMSReports database. objWord.MailMerge.OpenDataSource _ Name:="C:\Program Files\EMSReports\emsreports.mdb", _ LinkToSource:=True, _ Connection:="QUERY qryEMSBadgeFlag", _ SQLStatement:="Select * from [qryEMSBadgeFlag]" ' Execute the mail merge. objWord.MailMerge.Execute End Function ...since the reason I usually use Word instead of reports is so that the user can independently modify the results, I don't try to control the Word document once the merge is completed ...if I had JC's users, I'd be contemplating colbyization. ...hth William ----- Original Message ----- From: "Rocky Smolin at Beach Access Software" <rockysmolin at bchacc.com> To: "'Access Developers discussion and problem solving'" <accessd at databaseadvisors.com> Sent: Monday, February 04, 2008 10:31 AM Subject: Re: [AccessD] Automation of word > John: > > Can't help you with that but I'm curious to know the code you're using to > do > the merge. I had a merge function and it used to work. Now, for reasons > I > have yet to be able to figure out it doesn't. My code to open the > document > and merge is only a few lines: > > Dim objWordDoc As Word.Document > Dim objWord As Object > > Set objWord = CreateObject("Word.Application") > > With objWord > 'Visible is set True in order to view the operation. > .Visible = True > .Documents.Open (strDocName) > .ActiveDocument.MailMerge.Destination = wdSendToNewDocument > .ActiveDocument.MailMerge.SuppressBlankLines = True > .ActiveDocument.MailMerge.Execute > End With > > It starts word and opens the document just fine but at > .ActiveDocument.MailMerge.Destination = wdSendToNewDocument I get > requested > object not available. > > How are you opening and merging your document? > > TIA > > Rocky > > > > > > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby > Sent: Monday, February 04, 2008 6:49 AM > To: 'Access Developers discussion and problem solving' > Subject: [AccessD] Automation of word > > I have a rather elaborate mail merge system in a client's system. ATM I > open the document, merge the date and the user takes over, filling in > things > that they need to fill in, then printing and closing the word instance. > It > works well enough however I do not control the save of the document, and > very occasionally Word does not close cleanly, leaving a hidden instance > open WITH the associated merge text document open as well, preventing the > next merge from occurring. > > I need to know if it is possible to open word in a mode that prevents it > from being closed by the user? I would then have the user go back to my > application and press a button saying that they succeeded in doing the > mail > merge. I would save the document and close Word down. > > Can I prevent the user from closing Word? > > John W. Colby > Colby Consulting > www.ColbyConsulting.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.516 / Virus Database: 269.19.19/1257 - Release Date: 2/3/2008 > 5:49 PM > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com