Why do I get 2 copies?

[Marty]

Hi- I have Word97. I am running a mail merge using VBA code. When the data
are merged, I get 2 identical copies of my document. (Each is 18 pages long.)
I only call the WordBasicMailmerge routine once. Where is the second copy
coming from? What could be causing it to happen?
Thanks in advance for looking at this.

-Marty

 

[Charles Kenyon]

It would be helpful to actually see the code that is giving you problems.
You may want to post it in the vba.beginners or the word97vba newsgroup.

 

[Marty]

Charles-

That sounds like it would be helpful. But I do not see either of those
groups. Where do I find them?

Thanks, again,

Marty

 

[Doug Robbins]

Post it here if you can't find them.

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP

 

[Marty]

I'm posting the code here until I can navigate to the vba group.

When the code below is called, I get 2 complete documents generated:


WordBasic.MailMergeMainDocumentType 0
WordBasic.MailMergeOpenDataSource Name:="", ConfirmConversions:=0,
ReadOnly:=0, LinkToSource:=0, AddToMru:=0, PasswordDoc:="", PasswordDot:="",
Revert:=0, WritePasswordDoc:="", WritePasswordDot:="",
Connection:="DSN=GAVURAH;UID=sa;PWD=;APP=Microsoft
Query;WSID=SHIVAINDRA;LANGUAGE=us_english;DATABASE=lp_patents",
SQLStatement:="execute splp_lppci_US " & Chr(34) & OrderLetterNumber &
Chr(34), SQLStatement1:=""
WordBasic.MailMerge CheckErrors:=1, Destination:=0, MergeRecords:=0,
From:="", To:="", Suppression:=0, MailMerge:=1, MailSubject:="",
MailAsAttachment:=0, MailAddress:=""


Thanks, Marty

 

[Doug Robbins]

I would suggest that you re-write the code using "pure" VBA rather than the
VBA implemenation of the WordBasic commands.

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP