Open copy of Word template from Excel

[AJW]

Hi All,

I've got a password protected Word template that I'm launching from Excel but am having a problem with it.

This is the code I've cobbled together that works to open the template:

Sub Open_MSWord_CV2()
On Error GoTo ErrorHandler
Dim wdApp As Word.Application
Dim MyDoc As Word.Template '.Document
Set wdApp = New Word.Application
With wdApp
.Visible = True
.WindowState = wdWindowStateMaximize
End With
Set MyDoc = wdApp.Documents.Open("C:\Program Files\pf.com\pf TEMPLATES\CONTRACT VARIATION.dot", passwordtemplate:="xxxxxxxxxyz")
Set wdApp = Nothing
Set MyDoc = Nothing
Exit Sub
ErrorHandler:
Set wdApp = Nothing
Set MyDoc = Nothing
End Sub

My problem is that it opens the ACTUAL TEMPLATE and not a copy of the template.

Does anyone know how to open a copy from a password protected template?

Thanks in advance.

AJW

 

[CraigM]

Try declaring MyDoc as Word.Document and removing the .dot from the file path of your template.

 

[AJW]

Hi Craig,

Thanks for the reply.

I've tried that combination and it didn't work.

Regards

AJW

 

[CraigM]

Sorry for that. I didn't try it out first with the password protection. I guess you should really usually use the Add method, rather than the Open method to create a new document based on a template. However (unfortunately) this method doesn't seem to have any password passing capability.

 

[AJW]

Yeah, that's where I'm stuck.

Tried the Add method which works fine on an unprotected template but wont allow you to send the the password across.

I need to protect the templates from being tampered with so they remain in the standard corporate format. What people do with the copy they save is up to them.

Any other ideas?

Thanks

AJW