Hello,
I have WORD 2003 and Excel 2003 with WINXP Pro and have the following
problem. I'm opening a WORD (mail merge) document through code in Excel.
I've gotten assistance with the code here and other places and the code
works just as it's supposed to in bringing up WORD and selecting the
particular datasheet to merge from, all automatically. It does give me
issues regarding 0's instead of some proper entires but I'm going to convert
them all to text and see if I can get it to work. '
My problem When I start my excel database and try to launch a WORD document
with the code I get a warning that the ...... isn't connected. Then I need
to go to the code, select relationships and then select the WORD connections
that I need. I'm afraid that the people that are going to use this will
cause damage to the code or won't be able to get this done.

Here is the code I'm using (again thanks to a helper on here) Could someone
please look at it and see if I have too many of the wdApp objDoc objWord in
it and especially help me with an automated way to set a reference to the
Word Object library, if anyone knows this trick in VB. We will all be using
Excel 2003 so I shouldn't have any other versions of Excel or Word around.

Any help would be appreciated.
Thanks
BOb

Sub OpenWordDocument(WhichLetter As String)
'In order to use this code you must set a reference to the
'Word object library by doing this. In the VB Editor click
'Tools, References. Then search for Microsoft Word n.n Object Library
'where n.n will depend on your version of Word.
     Dim wdApp As Object
     Dim objWord As Word.Application
     Dim objDoc As Word.Document
     Dim wdDoc As Variant
     Application.ScreenUpdating = True
     Set objWord = CreateObject("Word.Application")
     If objWord Is Nothing Then
           MsgBox "Could not create the Word object"
           Exit Sub
     End If
     Set objDoc = objWord.Documents.Open("C:\LettersForms\LETTERS\" &
WhichLetter & ".doc") 'actual name went here
     If objDoc Is Nothing Then
           MsgBox "Could not open the specified document"
           objWord.Quit
           Set objWord = Nothing
           Exit Sub
     End If
     If WhichLetter = "03CInterview" Or WhichLetter = "03FInterview" Or
WhichLetter = "10FAgreement" Or _
           WhichLetter = "11FCMP" Or WhichLetter = "12AExhibit" Or
WhichLetter = "12BExhibit" Or _
           WhichLetter = "13IA" Then Exit Sub
     objDoc.Activate
     objWord.Visible = True
         With objDoc.MailMerge
                 '.OpenDataSource Name:=C:\LettersForms\Full Database.xls,
_
                 'sqlstatement1:="SELECT * FROM [" Full Database.DataBase &
"$]"
                 .OpenDataSource Name:="C:\LettersForms\Full Database.xls",
_
                 sqlstatement1:="SELECT * FROM [DataBase$]"
         End With
     Set objDoc = Nothing
     Set objWord = Nothing