Word Merge For Form Letter Code Error

[Guest]

The below code has worked for many years until my client got a new machine.:
Dim myWord As Word.Application
Dim myDoc As Word.Document
Dim sFileName As String
Dim sPath As String

sPath = CurrentProject.Path
sFileName = "\ThankYou.doc"
sFileName = sPath & sFileName

Set myWord = New Word.Application
Set myDoc = New Word.Document

myWord.Visible = True
Set myDoc = myWord.Documents.Open(sFileName)

With myDoc.MailMerge
.Destination = wdSendToNewDocument
.Execute
End With
myDoc.Close

All of the code references for Word 11.0 are checked. I now get the error
message "Requested Object is not available."

Any help appreciated

 

[Douglas J. Steele]

Try removing the line

Set myDoc = New Word.Document

It's really redundant, since you're setting myDoc two lines later.

 

[Pete]

Check your references as new machine is a clue that not all options were
added.

 

[Guest]

Checking for the Word 11.0 Object Library was the first thing I did. It's
there and the app compiles. Word does appear with the form letter but w/o the
merged data from Access.

 

[Guest]

Ooppps..I still get the error message. I compile the app to verify that all
of the references are set.

 

[Douglas J. Steele]

Which line of code generates the error?

 

[Guest]

With myDoc.MailMerge
.Destination = wdSendToNewDocument

 

[Douglas J. Steele]

To be honest, I seldom do mail merges, but looking in the Word Help file,
the examples always check the State property of the MailMerge object.

You might check the "Super Easy Word Merge" Albert Kallal has at
http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html

And while I realize you're using Access to do this, you might also check a
Word newsgroup for specifics. Cindy Meister has a Mail Merge FAQ at
http://homepage.swissonline.ch/cindymeister/MergFram.htm

 

[Guest]

I originally wrote the code back in 2001 using Access 2000. I notice from
that CindyMeister article that the coding has changed. So I will try to
update my code from what she has listed. Thanks for the help Doug!

 

[Pete D.]

What did you find, did it fix it? Please share, I want to
learnnnnnnnnnnnnnnn. Okay, stop laughing I really can be taught! Pete D