I am trying to send data from an Access 2002 table to a standard merge
document in Word 2002. This process worked fine in Office 2000, but now I
can not get past the Word mail merge wizard with my macro. Does anyone know
how to send the necessary code to Word 2002 to bypass the wizard and merge
the data? The macro currently uses the SendKeys statement, but I would like
to use a more reliable method of calling up the merge.

--
Have a good day, Ed

Hi ?B?RWQgQg==?=,

I am trying to send data from an Access 2002 table to a standard merge
document in Word 2002. This process worked fine in Office 2000, but now I
can not get past the Word mail merge wizard with my macro. Does anyone know
how to send the necessary code to Word 2002 to bypass the wizard and merge
the data? The macro currently uses the SendKeys statement, but I would like
to use a more reliable method of calling up the merge.

You really don't provide us with enough information. Which message? What are
your SendKey statements currently supposed to do (execute which steps)? Have
you tried recording these steps in a macro in Word in order to get the basic
syntax? If not, please do so and copy the code into your response.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

I am trying to send data from an Access 2002 table to a standard merge
document in Word 2002. This process worked fine in Office 2000, but now I
can not get past the Word mail merge wizard with my macro. Does anyone know
how to send the necessary code to Word 2002 to bypass the wizard and merge
the data? The macro currently uses the SendKeys statement, but I would like
to use a more reliable method of calling up the merge.

The SendKeys statement is as follows:
SendKeys = +%TLM~G:\Regulatory\Form Letters\Standard.doc~%(trmm)

The Standard document is a letter with the merge fields already defined and
linked to the database.

The result of this is nothing happens. I dont get anywhere.

I recorded the following Macro in Word 2002
Sub MergeStandardLetter2()
'
'
ChangeFileOpenDirectory "G:\Regulatory\Form Letters\"
Documents.Open FileName:="Standard.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
End Sub

But I have two problems,
a) Every time I run the Macro, I get the following screen box that I have to
respond to, that I would like to eliminate:

Opening this document will run the following SQL Command
SELECT*FROM [Payments & Filing - Current Session] WHERE (([LegalEntity] IS
NOT NULL))
Data from your database will be placed in the document. Do you want to
continue
YES NO
{would not allow me to paste the actual box on this post}

b) I dont know how to call up this Macro in Word from Access 2002.

I hope this gives you enough information to be able to help me.
--
Have a good day, Ed


"Cindy M -WordMVP-" wrote:

Hi ?B?RWQgQg==?=,

I am trying to send data from an Access 2002 table to a standard merge
document in Word 2002. This process worked fine in Office 2000, but now I
can not get past the Word mail merge wizard with my macro. Does anyone know
how to send the necessary code to Word 2002 to bypass the wizard and merge
the data? The macro currently uses the SendKeys statement, but I would like
to use a more reliable method of calling up the merge.

You really don't provide us with enough information. Which message? What are
your SendKey statements currently supposed to do (execute which steps)? Have
you tried recording these steps in a macro in Word in order to get the basic
syntax? If not, please do so and copy the code into your response.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

Hi ?B?RWQgQg==?=,

OK, the simple part first. The message you're getting is explained in this
article, and it also gives you a work-around (a Registry key):

"Opening This Will Run the Following SQL Command" Message When You Open a Word
Document - 825765
http://support.microsoft.com?kbid=825765

For using the macro in Access, you have to automate the Word application. Could
you show us the code you're currently using to access Word in order to use the
SendKeys, please? We need that to "wrap around" the recorded code.

I recorded the following Macro in Word 2002
Sub MergeStandardLetter2()
'
'
ChangeFileOpenDirectory "G:\Regulatory\Form Letters\"
Documents.Open FileName:="Standard.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
End Sub

But I have two problems,
a) Every time I run the Macro, I get the following screen box that I have to
respond to, that I would like to eliminate:

Opening this document will run the following SQL Command
SELECT*FROM [Payments & Filing - Current Session] WHERE (([LegalEntity] IS
NOT NULL))
Data from your database will be placed in the document. Do you want to
continue
YES NO
{would not allow me to paste the actual box on this post}

b) I dont know how to call up this Macro in Word from Access 2002.


Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)

Hi, Cindy

The SendKeys statement (SendKeys = +%TLM~G:\Regulatory\Form
Letters\Standard.doc~%(trmm) ) shows the strokes to open Word. the Tools,
Links, Merge it with Word command is the one called. This coupled with the
call of the Standard document used to be enough to open Word and Merge the
data from the Access table.

I don't know if this is what you were looking for, but I don't know of
another method to start Word that allows me to run the macro I recorded.


--
Have a nice day, Ed


"Cindy M -WordMVP-" wrote:

Hi ?B?RWQgQg==?=,

OK, the simple part first. The message you're getting is explained in this
article, and it also gives you a work-around (a Registry key):

"Opening This Will Run the Following SQL Command" Message When You Open a Word
Document - 825765
http://support.microsoft.com?kbid=825765

For using the macro in Access, you have to automate the Word application. Could
you show us the code you're currently using to access Word in order to use the
SendKeys, please? We need that to "wrap around" the recorded code.

I recorded the following Macro in Word 2002
Sub MergeStandardLetter2()
'
'
ChangeFileOpenDirectory "G:\Regulatory\Form Letters\"
Documents.Open FileName:="Standard.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
End Sub

But I have two problems,
a) Every time I run the Macro, I get the following screen box that I have to
respond to, that I would like to eliminate:

Opening this document will run the following SQL Command
SELECT*FROM [Payments & Filing - Current Session] WHERE (([LegalEntity] IS
NOT NULL))
Data from your database will be placed in the document. Do you want to
continue
YES NO
{would not allow me to paste the actual box on this post}

b) I don€„¢t know how to call up this Macro in Word from Access 2002.


Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)

Hi ?B?RWQgQg==?=,

The SendKeys statement (SendKeys = +%TLM~G:\Regulatory\Form
Letters\Standard.doc~%(trmm) ) shows the strokes to open Word. the Tools,
Links, Merge it with Word command is the one called. This coupled with the
call of the Standard document used to be enough to open Word and Merge the
data from the Access table.

Shift+Alt+T, followed by L and then M opens Word? What menu commands are these
in Access?

Not that it matters, I suppose, because you won't be able to go this route to
do any sensible automation... Automating another application is not a trivial
thing for someone with minimal programming experience, but let's see...

You need to copy this to an ACCESS module and test. I'm not going to guarantee
that I won't make any typing/syntax errors.

Before you try to run it, you need to go to the Tools/References menu in the
VB Editor and activate the checkbox for "Microsoft Word 10" (or similar).

If you get error messages, be sure to quote the full and exact text in your
reply, and indicate on which line it occurs.

Sub MergeStandardLetter2()
Dim wd as Word.Application
Dim doc aS Word.Document

Set wd = new Word.Application
wd.Visible = True
Set doc = wd.Documents.Open( _
FileName:="G:\Regulatory\Form Letters\Standard.doc", _
ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto)
With doc.MailMerge
.Destination = wd.wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wd.wdDefaultFirstRecord
.LastRecord = wd.wdDefaultLastRecord
End With
.Execute Pause:=False
End With
Set doc = Nothing
Set wd = Nothing
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)