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 vote381 views1 answer
How to remove zeros in excel
VBA
0 vote405 views1 answer
Application.ExecutablePath VB.NET
VBA
0 vote367 views2 answers
How to concatenate more than 40 lines in vba
VBA
5 votes373 views1 answer
Xl vba double quotes in string literal
VBA
1 vote392 views2 answers
Vba string length
VBA
0 vote361 views1 answer
Freeze panes vba
VBA
0 vote380 views1 answer
Find database connection string vb
VBA
0 vote372 views1 answer
Excel vba chrw max value
VBA
0 vote363 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote359 views1 answer
Vba option button selected
VBA