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 vote166 views1 answer
Excel vba copy entire sheet paste values
VBA
0 vote152 views1 answer
Vba remove numbers from string
VBA
4 votes173 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
3 votes172 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
1 vote157 views2 answers
Vba find last row in range for certain criteria
VBA
1 vote174 views2 answers
Excel vba password protect
VBA
0 vote164 views1 answer
Excel vba urlmon
VBA
0 vote175 views1 answer
Excel vba DisplayAlerts
VBA
1 vote159 views1 answer
Vba refresh pivot table
VBA
15 votes300 views2 answers
Xl vba dynamic string array
VBA