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 vote213 views1 answer
VB Error Code BC30201
VBA
3 votes235 views1 answer
Extract word in a text in excel
VBA
0 vote224 views1 answer
Iterate all file in a folder vba
VBA
0 vote262 views1 answer
Excel vba add reference programmatically
VBA
0 vote212 views1 answer
Vbs expand env var
VBA
0 vote215 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote226 views4 answers
Jwt token vb.net validation
VBA
0 vote224 views1 answer
Vba multiple optional arguments
VBA
0 vote207 views1 answer
Send text to clipboard vb.net
VBA
0 vote197 views1 answer
Vba change named range address
VBA