Opening a password protected word file as read only

[gruntingmonkey]

Hi, I can't figure out how to open the below file while selecting Read only when the password entry box comes up.

If Dir(ConTemp) <> "" Then
  With wdApp
       .DisplayAlerts = wdAlertsNone
       .Visible = True
   Set wdDoc = wdApp.Documents.Add(ConTemp)

I have tried:
Application.DisplayAlerts = False
and
Set wdDoc = wdApp.Documents.Add(ConTemp, readonly:=true)
but neither of these have worked. I'm not sure what to try next! Has anyone got any ideas?

 

[ZVI]

Hi,
Try this:

Set wdDoc = wdApp.Documents.Open(ConTemp, ReadOnly:=True, PasswordDocument:="123")

 

[gruntingmonkey]

Urgh! That works perfectly. Can I ask what the difference is between .add and .open as this seems to be the bit that stops it working?

 

[ZVI]

Glad it has helped!

In short - Open() is just opens the stored file of document, Add() is for creating in memory a new document.

Add() is the function for creating the new document based on a template, if template is omitted then the default is used.
Here is its definition:
Function Add([Template], [NewTemplate], [DocumentType], [Visible]) As Document

As you can see there is no ReadOnly and PasswordDocument parameters, which are present in the Open() function:
Function Open(FileName, [ConfirmConversions], [ReadOnly], [AddToRecentFiles], [PasswordDocument], [PasswordTemplate], [Revert], [WritePasswordDocument], [WritePasswordTemplate], [Format], [Encoding], [Visible], [OpenAndRepair], [DocumentDirection], [NoEncodingDialog], [XMLTransform]) As Document

 

[gruntingmonkey]

Right, great thanks. I was under the impression I had created these as templates but I can see now that they are just standard documents. That's been really helpful, thanks again.