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 vote220 views1 answer
Excel VBA web scraping
VBA
0 vote236 views1 answer
Style percent not found vba
VBA
9 votes269 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
31 votes276 views1 answer
Excel vba function to convert column number to letter
VBA
1 vote215 views1 answer
Vbs run
VBA
0 vote208 views1 answer
Reset border color textbox vba
VBA
1 vote233 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote215 views1 answer
Excel vba formatconditions positive
VBA
0 vote214 views1 answer
Excel vba show developer tab
VBA
2 votes209 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA