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

1 vote149 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
6 votes175 views1 answer
Excel vba isalpha
VBA
1 vote149 views1 answer
Excel vba compare 2 rows
VBA
0 vote145 views1 answer
Vba check 32 or 64 bit
VBA
0 vote163 views1 answer
Reset border color textbox vba
VBA
0 vote173 views1 answer
Excel vba protect shapes
VBA
0 vote167 views1 answer
Vba table header name
VBA
0 vote155 views1 answer
Vba extract filename from path
VBA
0 vote166 views4 answers
Vgrive,deb
VBA
0 vote184 views1 answer
Check if cell is dbnullvb.net
VBA