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

0 vote233 views1 answer
Vba code to select image in sheet
VBA
1 vote242 views1 answer
Excel format cell as kilowatts
VBA
5 votes270 views1 answer
Vba low byte from INTEGER
VBA
3 votes282 views1 answer
Vba post request json
VBA
0 vote265 views1 answer
Iterate all file in a folder vba
VBA
0 vote242 views1 answer
Excel vba move down to next visible cell
VBA
1 vote225 views1 answer
How to do error handling in access vba
VBA
0 vote240 views1 answer
Backspace key has stopped working visual studio
VBA
0 vote234 views1 answer
Discern between file and folder given path vb.net
VBA
4 votes228 views1 answer
Excel formula for last non-empty cell in a column
VBA