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 vote214 views1 answer
WGET FTP
VBA
0 vote231 views1 answer
Vba sheet hide unhide
VBA
0 vote240 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote207 views1 answer
Excel vba milliseconds
VBA
0 vote239 views1 answer
Delete all controls in an area vb
VBA
0 vote224 views1 answer
Excel vba extract year
VBA
3 votes227 views1 answer
Vba not equal
VBA
0 vote236 views1 answer
Default host vbox address
VBA
0 vote241 views1 answer
How to make a a msgbpx in vbs
VBA
1 vote218 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA