[AccessD] Automation of word

Thanks.  I'll give it a try.

Rocky
 




 	
	

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman
Sent: Tuesday, February 05, 2008 5:30 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Automation of word

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 


-- 
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.20/1259 - Release Date: 2/4/2008
8:42 PM