VBA open populate and save word doc

ldarley

Board Regular
Joined
Apr 10, 2012
Messages
106
Office Version
  1. 2019
  2. 2016
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:

Code:
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!
 

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,163,896
Messages
5,834,288
Members
430,274
Latest member
TME1993

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top