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"
Peter Jamieson - 28 Apr 2004 00:20 GMT
I suspect you are suffering from a new security-related problem described in
the following article:
http://support.microsoft.com?kbid=825765

Signature
Peter Jamieson - Word MVP
Word MVP web site http://word.mvps.org/
> 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
[quoted text clipped - 16 lines]
> wd.Activate
> wd.Documents.Open "C:\Mail trax\box renewal notice.doc"
richie - 28 Apr 2004 18:13 GMT
Does that mean you can no longer mail merge with Microsoft access and
save the data source???
> I suspect you are suffering from a new security-related problem described in
> the following article:
[quoted text clipped - 21 lines]
> > wd.Activate
> > wd.Documents.Open "C:\Mail trax\box renewal notice.doc"
Peter Jamieson - 29 Apr 2004 09:24 GMT
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.

Signature
Peter Jamieson - Word MVP
Word MVP web site http://word.mvps.org/
> Does that mean you can no longer mail merge with Microsoft access and
> save the data source???
[quoted text clipped - 24 lines]
> > > wd.Activate
> > > wd.Documents.Open "C:\Mail trax\box renewal notice.doc"