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 vote267 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
0 vote231 views1 answer
Switch pictures with buttons vb.net
VBA
1 vote231 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
0 vote244 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote244 views1 answer
Vba copy file
VBA
0 vote302 views1 answer
Excel vba delete columns in range
VBA
0 vote250 views1 answer
Freeze panes vba
VBA
0 vote237 views1 answer
Vba listbox remove all items
VBA
0 vote271 views1 answer
How to enter Vbox manage commands
VBA
-1 vote229 views2 answers
How close excel through visual basic
VBA