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 last row of range
VBA
0 vote148 views1 answer
Search combobox items vb.net
VBA
0 vote134 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote134 views1 answer
Vb net show lines for all axis labels in chart
VBA
0 vote137 views1 answer
Excel named range sum
VBA
0 vote139 views1 answer
Excel vba prevent saving workbook
VBA
0 vote139 views1 answer
Excel vba cell on change
VBA
1 vote134 views2 answers
Vba function return array
VBA
6 votes149 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote151 views1 answer
Add text to Shape VBA
VBA