How can I open a read only word document using vba?

[davidm21]

Hello everyone,
this is the code I am using to open a word document using excel vba:

Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True


objWord.Documents.Open "C:\Users\dmargraf\Documents\Makro Aufgabe\Testdoc Word.docx"


I need to open the word file in order to copy its content and paste it into an excel file, but the problem is the word document is "read-only" meaning that an application alert window pops up and stops the makro from working.
Does anybody know how to work around this problem?

 

[Domenic]

Try setting the ReadOnly property to True...

objWord.Documents.Open Filename:="C:\Users\dmargraf\Documents\Makro Aufgabe\Testdoc Word.docx", ReadOnly:=True

Hope this helps!