I will be needing to update some model files to different model templates.  I need to do this to have current models match the needed deliverables as defined by the customer.  The easiest way I have found to do this is to create a new part with the current model template (either part or assembly) and insert the needed part into it.  I am trying to get a macro set up to allow this process to be automated, but I am hitting a snag with the programming.

Here are the steps I need to have:

1. Create new part/assembly from the .prtdot/.asmdot template.

2. Select the Insert Part command (Insert/Part).

3. Allow me to select the model file that needs to be updated.

4. Complete the Insert Part command (Breaking Link to original part).

5. Delete the folder that has the feature tree in it.

6. Save As allowing me to specify the name.

I recorded the steps, and it will run as I have recorded it, but it will automatically select the file that was used recording the macro also it automatically assigns the part name that was used during recording.  I have tried looking up what commands/wording to use in order to edit the code, but I have been unable to find what I am looking for.  Any help will be greatly appreciated.

Here is the code that I am given.

' ******************************************************************************
' C:\Users\12345\AppData\Local\Temp\swx6932\Macro1.swb - macro recorded on 06/28/13 by Shaun

' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.NewDocument("C:\Supporting Documents\PART.prtdot", 0, 0, 0)
swApp.ActivateDoc2 "Part11", False, longstatus
Set Part = swApp.ActiveDoc
Dim myFeature As Object
Set myFeature = Part.InsertPart2("C:\Users\Shaun\Desktop\TestPart.SLDPRT", 515)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("1164-00967 Features1", "FTRFOLDER", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
longstatus = Part.SaveAs3("C:\Users\Shaun\Desktop\Part1.SLDPRT", 0, 2)
End Sub