Open Word Document Read Only From Access Form

[xeb]

Hi:

From Access I'm opening a Word document with the following code. I want it to be Read Only without any message boxes, password boxes, etc. for the user. Just open as Read Only. Can this be done?

Thanks,

xeb



Private Sub Command1_Click()

Dim LWordDoc As String
Dim oApp As Object

'Path to the word document
LWordDoc = "c:\Doc1.doc"

If Dir(LWordDoc) = "" Then
MsgBox "Document not found."

Else
'Create an instance of MS Word
Set oApp = CreateObject(Class:="Word.Application")
oApp.Visible = True

'Open the Document
oApp.Documents.Open filename:=LWordDoc
End If

End Sub

 

[Ziggurat]

Hi xeb

I think all that you need to do is to change the following line :-

'Open the Document
oApp.Documents.Open filename:=LWordDoc, ReadOnly:=True

You will not be able to overwrite the original but you can save the document under a different name.

Hope this helps

#
###
#####
#######
Ziggurat

 

[xeb]

That works great! Thank you.