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 vote321 views1 answer
Vba dictionary length
VBA
0 vote332 views1 answer
Vba simple quote
VBA
0 vote361 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote348 views1 answer
Vba table header name
VBA
0 vote312 views1 answer
Excel vba formatconditions range
VBA
8 votes452 views1 answer
Excel vba make word
VBA
0 vote342 views1 answer
VB Error Code BC30201
VBA
0 vote288 views1 answer
Excel vba linter
VBA
0 vote343 views2 answers
Excel vba copy paste after last row
VBA
0 vote354 views2 answers
Get unique random number in vb.net
VBA