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

9 votes303 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote162 views3 answers
Write to text file vb.net
VBA
0 vote178 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote167 views1 answer
Vba declare 64-bit ptrsafe
VBA
0 vote195 views2 answers
Get unique random number in vb.net
VBA
3 votes187 views1 answer
Extract word in a text in excel
VBA
8 votes296 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote175 views1 answer
Vbs run with cscript
VBA
0 vote169 views1 answer
Vbnet find highest value in chart
VBA
0 vote178 views1 answer
Vba table header name
VBA