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 vote268 views1 answer
Vba optional
VBA
4 votes250 views1 answer
Excel formula for last non-empty cell in a column
VBA
0 vote275 views1 answer
Excel vba chrw max value
VBA
3 votes280 views1 answer
Vba not equal
VBA
1 vote273 views1 answer
Vba reverse string
VBA
0 vote286 views2 answers
Excel vba copy paste after last row
VBA
0 vote259 views1 answer
Check if program is running vbnet
VBA
20 votes382 views1 answer
Excel vba factorial
VBA
5 votes318 views1 answer
Excel vba get user selected range
VBA
0 vote265 views1 answer
Vb net check if file exists
VBA