Got a blip in code now Got first problem cleared will insert code
Sub GetWordDocument()
Dim wordDoc As Word.Document
'
'Get the Word document object
'
Application.StatusBar = "Getting Word Document object..."
Set wordDoc = GetObject("Word 3x5.doc", "Word.doc")
Application.StatusBar = "Getting Word 3x5..."
MsgBox wordDoc.Name & " has " & wordDoc.Words.word3x5 & "words."
'
'We're done, so quit Word and release object variable
'
Application.StatusBar = "Shutting Down Word..."
wordDoc.Application.Quit
Set wordDoc = Nothing
Application.StatusBar = False
End Sub
Thanks to all for help