Sounds possible Dan, but I would need to test it. I'll do that this weekend
if I get a chance.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"danhattan" wrote in message
...
Hi Bob.

I was searching the forum to learn how to open a Word doc from an excel
macro and found this code from your post on 4/2/2007:

If Range("H1").Value = "Y" Then
Set oWordApp = CreateObject("Word.Application")
Set oDoc = oWordApp.Documents.Open("C:\personal\bob\doc1.doc" )
'do something
Set oDoc = Nothing
oWordApp.Quit
Set oWordApp = Nothing
End If

It works, but I'm having the same problem as Dave here, and I have
carefully
shut down Word but that doesn't help. I have a suspicion that perhaps you
could confirm. I'm trying to open a Word mail-merge document that reads
from
the spreadsheet that holds the macro opening the Word doc. Any chance that
the passing connections are causing a conflict, and that's creating the
Read-Only problem? Please let me know what you think.

Thanks much - Dan.

"Bob Phillips" wrote:

Sounds like you may already have created a Word instance and opened that
file.

Cheek if Word is already running.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"Dave.Punk.Emo" wrote in message
oups.com...
Ok, I'm trying to open and update a MS Word document from Excel using
VBA, but everytime I try to open it, it loads as a Read Only Document,
giving me the message that this file is locked for use by myself, and
thus not allowing me to save it. I'm using this code to open it (the
SendKeys does not appear to make any difference to this message):

Sub Button13_Click()
Dim wdApp As Object
Dim wdDoc As Object
Dim sFname As String

sFname = "R:\SALES\Quote Generators\Quotes\2 Pass Tray\2 Pass Tray
Quote.doc" 'File Location

If sFname = "R:\SALES\Quote Generators\Quotes\2 Pass Tray\2 Pass
Tray Quote.doc" Then

Set wdApp = CreateObject("Word.Application")
wdApp.Documents.Open Filename:="R:\SALES\Quote Generators
\Quotes\2 Pass Tray\2 Pass Tray Quote.doc" 'Opens File
SendKeys "{Left} {Enter}, False" 'Updates File
End If
End Sub


Can anyone help me to be able to open it as a non-read-only file...?