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 vote227 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
0 vote223 views1 answer
Vlookup columns not next to each other
VBA
0 vote226 views1 answer
WGET FTP
VBA
1 vote216 views1 answer
Highlight selected cell in excel vba
VBA
0 vote240 views1 answer
Vba character ascii code
VBA
3 votes218 views1 answer
Vba make long from two shorts
VBA
0 vote225 views1 answer
Excel vba show developer tab
VBA
0 vote239 views2 answers
Vb.net include quotes in string
VBA
0 vote216 views1 answer
Change whcih control a user has selected vb
VBA
2 votes216 views2 answers
Excel vba copy values range to another range
VBA