VBA open populate and save word doc

ldarley

Board Regular
Joined
Apr 10, 2012
Messages
104
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!
 

Some videos you may like

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.

Watch MrExcel Video

Forum statistics

Threads
1,122,232
Messages
5,594,962
Members
413,954
Latest member
mrsandy

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