Can only open Read-Only Word documents from Excel using VBA

[Dave.Punk.Emo]

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...?

 

[Bob Phillips]

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)

 

[Bob Phillips]

I mean check of course.

--
HTH

Bob

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

 

[Guest]

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]

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)

 

[Dave.Punk.Emo]

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)











- Show quoted text -

What seems to happen is the first time the code is executed, it
creates an instance of word, and the second time it is executed, it
opens the file, as read only. Any ideas on how to fix this?

 

[Dave.Punk.Emo]

What seems to happen is the first time the code is executed, it
creates an instance ofword, and the second time it is executed, it
opens the file, as read only. Any ideas on how to fix this?- Hide quoted text -

- Show quoted text -

I managed to fix it by changing the code to:


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
wdApp.Visible = True 'Added this
lline of code
SendKeys "{Left} {Enter}" 'Updates File
End If
End Sub


Thanks for all the help