I changed some of the code as you recommended. I am now getting a syntax
error. I have seperated the part that is being highlighted as the error.Here
is the code:

Dim wdApp As Object
Dim myDoc As Object
Set wdApp = CreateObject("Word.Application")
Set myDoc =
wdApp.Documents.Open("\\powervault2\home_pl\common \Referrals\Referal
Agency - Ecology.doc")
With myDoc.MailMerge.MainDocumentType = wdFormLetters

The code below is where I am getting the syntax error.

With myDoc.MailMerge.OpenDataSource Name:= _
"\\powervault2\home_pl\common\Referrals\Referals.x ls", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="",
_
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False,
_
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Us er ID=Admin;Data
Source=\\powervault2\home_pl\common\Referrals\Refe rals.xls;Mode=Read;Extended
Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet
OLEDB:Registry Path="""";Jet OLEDB:Database Pa" _
, SQLStatement:="SELECT * FROM `Sheet1$`", SQLStatement1:="",
SubType:= _
wdMergeSubTypeAccess



"JLatham" <HelpFrom @ Jlathamsite.com.(removethis) wrote in message
...
With 'late binding' basically everything is an Object until you actually
do
assignments with the Set statement. So you need to
Dim myDoc as Object
also. You'll need to refer to the objects instead of the application in
the
code, as instead of
Set myDoc = Word.Documents.Open(...
it becomes
Set myDoc = wdApp.Documents.Open(...
and probably a good thing in the rest would be something like:
With myDoc
.MailMerge.MainDocumentType=...
.MailMerge.OpenDatasource Name:=...
...
End With

or even
With myDoc.MailMerge
.MainDocumentType=...
.OpenDatasource Name:=...
...
End With
Whether you can use that second one depends on what else is going on with
the document besides MailMerge methods.

"Michelle Hanan" wrote:

I am running a macro in Office 2003 and need to run it in XP, so from
what I
understand I need to uncheck the reference to word, since that is where
the
merging is happening and then change the code to "late binding". My
problem
is that looking at the code I can't figure out what to change. Here is
the
beginning of the code:

Dim wdApp As Object
Dim myDoc As Word.Document
Set wdApp = CreateObject("Word.Application")
Set myDoc =
Word.Documents.Open("\\powervault2\home_pl\common\ Referrals\Referal
Agency -
Ecology.doc")
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource Name:= _
"\\powervault2\home_pl\common\Referrals\Referals.x ls", _

Any suggestions?