Vba word open document read only

Sub OpenWord()
Dim WordApp As Object
Dim WordDoc As Object

Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(Filename:="C:\test\test.doc", ReadOnly:=True)
WordApp.Visible = True

'do your stuff

Set WordDoc = Nothing
Set WordApp = Nothing
End Sub

Source: vbaexpress.com

Similar codes

2 votes324 views2 answers
Excel vba copy values range to another range
VBA
3 votes337 views1 answer
Vba make long from two words
VBA
0 vote312 views1 answer
Reset border color textbox vba
VBA
5 votes890 views1 answer
Vlookup vba
VBA
1 vote324 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
0 vote317 views1 answer
Excel vba formatconditions positive
VBA
5 votes349 views1 answer
Vba low word from Long Integer
VBA
0 vote361 views1 answer
Application.ExecutablePath VB.NET
VBA
0 vote306 views2 answers
Excel vba prevent save
VBA
3 votes321 views1 answer
Extract the nth word from a text string
VBA