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 vote308 views1 answer
Excel vba hide zero values
VBA
0 vote330 views1 answer
Vbnet check if sting contians symbols
VBA
3 votes370 views1 answer
Vba continue for each loop
VBA
0 vote342 views1 answer
Vbnet find highest value in chart
VBA
0 vote337 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote334 views1 answer
Vba timestamp -- milliseconds
VBA
8 votes494 views1 answer
Excel vba make word from bytes
VBA
4 votes329 views2 answers
Vba create folder if not exist
VBA
0 vote356 views1 answer
Set datetimepicker value to null vb
VBA
0 vote340 views1 answer
Excel vba remove formatting from cell
VBA