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 vote169 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
3 votes173 views1 answer
Vba folderexists
VBA
0 vote188 views1 answer
Excel vba copy entire sheet paste values
VBA
1 vote181 views1 answer
Excel vba make cell visible
VBA
0 vote196 views1 answer
Vba min
VBA
0 vote176 views1 answer
Excel VBA web scraping
VBA
0 vote190 views1 answer
String contins in vba
VBA
0 vote216 views1 answer
Vbnet check if string is only numbers
VBA
0 vote193 views1 answer
Vba extract filename from path
VBA
0 vote210 views1 answer
Excel vba protect worksheet without password
VBA