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 vote203 views1 answer
Do until vb.net
VBA
0 vote152 views1 answer
Excel autofilter vba
VBA
-1 vote201 views1 answer
For i in range vba
VBA
0 vote238 views1 answer
Group controls programmatically vb
VBA
11 votes478 views1 answer
Excel vba How to URL encode a string
VBA
0 vote237 views1 answer
Excel vba scroll to cell
VBA
3 votes219 views1 answer
Vba double quote
VBA
0 vote207 views1 answer
Add text to combobox drop down vb
VBA
0 vote230 views1 answer
Sendkeys vba selenium
VBA
0 vote202 views1 answer
How to make a if statement with vbs
VBA