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 vote149 views1 answer
Excel vba get ordinal number from cardinal number
VBA
8 votes285 views1 answer
Vba make a short integer from two bytes
VBA
0 vote152 views1 answer
Vba code to open a file with login rights
VBA
2 votes158 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote152 views1 answer
Vba timestamp -- milliseconds
VBA
1 vote151 views2 answers
Get all column names from excel vba
VBA
0 vote163 views1 answer
Excel vba extract year
VBA
12 votes286 views1 answer
Excel vba write string to text file
VBA
1 vote147 views1 answer
Excel format cell as kilowatts
VBA
0 vote144 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA