Mail merge data source can't be saved word 2003

I have an access dbase access 2000 format that has been working fine
with a mail merge with MS word 97, 2000, & Xp, however with Word 2003
Excel doesn't
open and the data source cannot be saved in Word i.e. ( it loses its
connection each time). I've included the code but I have a feeling it
is
more of a Word 2003 issue.

Any ideas would be greatly appreciated.


Case "First Box Renewal Notice"
Dim wd As Word.Application
DoCmd.OutputTo acQuery, "Mail merge first notice",
"MicrosoftExcel(*.xls)", "c:\mail trax\Mail merge first notice.xls",
False, ""

Set wd = CreateObject("word.application")
wd.Visible = True
wd.Activate
wd.Documents.Open "C:\Mail trax\box renewal notice.doc"

I suspect you are suffering from a new security-related problem described in
the following article:

http://support.microsoft.com?kbid=825765

--
Peter Jamieson - Word MVP
Word MVP web site http://word.mvps.org/

"richie" wrote in message
om...
I have an access dbase access 2000 format that has been working fine
with a mail merge with MS word 97, 2000, & Xp, however with Word 2003
Excel doesn't
open and the data source cannot be saved in Word i.e. ( it loses its
connection each time). I've included the code but I have a feeling it
is
more of a Word 2003 issue.

Any ideas would be greatly appreciated.


Case "First Box Renewal Notice"
Dim wd As Word.Application
DoCmd.OutputTo acQuery, "Mail merge first notice",
"MicrosoftExcel(*.xls)", "c:\mail trax\Mail merge first notice.xls",
False, ""

Set wd = CreateObject("word.application")
wd.Visible = True
wd.Activate
wd.Documents.Open "C:\Mail trax\box renewal notice.doc"

Does that mean you can no longer mail merge with Microsoft access and
save the data source???


"Peter Jamieson" wrote in message ...
I suspect you are suffering from a new security-related problem described in
the following article:

http://support.microsoft.com?kbid=825765

--
Peter Jamieson - Word MVP
Word MVP web site http://word.mvps.org/

"richie" wrote in message
om...
I have an access dbase access 2000 format that has been working fine
with a mail merge with MS word 97, 2000, & Xp, however with Word 2003
Excel doesn't
open and the data source cannot be saved in Word i.e. ( it loses its
connection each time). I've included the code but I have a feeling it
is
more of a Word 2003 issue.

Any ideas would be greatly appreciated.


Case "First Box Renewal Notice"
Dim wd As Word.Application
DoCmd.OutputTo acQuery, "Mail merge first notice",
"MicrosoftExcel(*.xls)", "c:\mail trax\Mail merge first notice.xls",
False, ""

Set wd = CreateObject("word.application")
wd.Visible = True
wd.Activate
wd.Documents.Open "C:\Mail trax\box renewal notice.doc"

No, although that may well happen for other reasons. What happens now is
that if you open the document manually, you are asked to confirm that you
want to open the data source. So Word hasn't forgotten it. But if you are
opening using automation, you don't see the message and the data source is
not opened. More or less.

--
Peter Jamieson - Word MVP
Word MVP web site http://word.mvps.org/

"richie" wrote in message
om...
Does that mean you can no longer mail merge with Microsoft access and
save the data source???


"Peter Jamieson" wrote in message
...
I suspect you are suffering from a new security-related problem
described in
the following article:

http://support.microsoft.com?kbid=825765

--
Peter Jamieson - Word MVP
Word MVP web site http://word.mvps.org/

"richie" wrote in message
om...
I have an access dbase access 2000 format that has been working fine
with a mail merge with MS word 97, 2000, & Xp, however with Word 2003
Excel doesn't
open and the data source cannot be saved in Word i.e. ( it loses its
connection each time). I've included the code but I have a feeling it
is
more of a Word 2003 issue.

Any ideas would be greatly appreciated.


Case "First Box Renewal Notice"
Dim wd As Word.Application
DoCmd.OutputTo acQuery, "Mail merge first notice",
"MicrosoftExcel(*.xls)", "c:\mail trax\Mail merge first notice.xls",
False, ""

Set wd = CreateObject("word.application")
wd.Visible = True
wd.Activate
wd.Documents.Open "C:\Mail trax\box renewal notice.doc"