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 vote214 views1 answer
Vbnet revrese the order of character in string
VBA
0 vote196 views1 answer
Vba add month to date
VBA
0 vote196 views1 answer
Excel vba disable screen update
VBA
0 vote189 views1 answer
Excel vba hide columns
VBA
18 votes277 views3 answers
Excel-vba make integer
VBA
5 votes213 views1 answer
Excel vba low word from Long Integer
VBA
0 vote196 views1 answer
Vba leading zeros in string
VBA
0 vote196 views1 answer
Excel vba scroll to cell
VBA
0 vote202 views1 answer
Excel vba copy range with filter
VBA
0 vote202 views1 answer
Excel named range sum
VBA