VBA open populate and save word doc

[ldarley]

Hi all!

I am having a problem with code to open several word template, populate and save the to a new folder. The folder that holds the templates is shared so that a lot of people can access the form templates. The code runs fine if nobody has any of the templates open but hangs up with an OLE error if any of the templates are in use, locked for editing to another user.

Is there any way around this for me, for excel to continue to populate the already open template and then save it to the new location. If this happens manually you get the standard three radial buttons option in word to open as a read only copy etc. which allows you to edit and then save elsewhere. I have put an abridged version of my code up to the point of the documents open command that causes the error below:

Sub OpenDoc()

Dim wApp As Object
Dim wDoc As Object
Dim strFileName As String
Dim strFolder As String


SetFolder = ""
SetFileName = ""


        'create new instance of word
        On Error Resume Next
        Set wApp = CreateObject("Word.Application")
        App.DisplayAlerts = False
        
        'open temaplates, populate and save
            
            With wApp
   
                Set wDoc = wApp.Documents.Open(strFolder & strFiileName)
                'rest of my code to populate and save
            End With


End Sub

As always any help is greatly appreciated!

 

[ldarley]

Also sorry I am using late binding.