Mismatch error in VBA macro code (.ImportPart)

Question

Here is my code to make a SW macro which is able to open one by one .sldprt files from a folder and add another file (BoumdingBox) in each opened file.

The mismatch error is in line : Set objModel = objModel.InsertPart(objModel, 0)

I don't know how to resolve it, I am a beginner.

Thanks for your help

---

Sub OpenSldprtFiles()
    Dim strPath As String
    Dim strFile As String
    Dim objSW As SldWorks.SldWorks
    Dim objModel As SldWorks.ModelDoc2
    
    Set objSW = Application.SldWorks
    
    'Specify the folder path here
    strPath = "C:\Users\emilien.petit\Desktop\VolumeCalculation\Components\"
    
    'Loop through all the files in the folder
    strFile = Dir(strPath & "*.sldprt")
    Do While strFile <> ""
        'Open the file
        Set objModel = objSW.OpenDoc6(strPath & strFile, swDocPART, swOpenDocOptions_Silent, "", 0, 0)
        
        'Insert the new part
        Dim objPart As SldWorks.PartDoc
        Set objPart = objSW.NewDocument("C:\Users\emilien.petit\Desktop\VolumeCalculation\BoundingBox.SLDPRT", 0, 0, 0)
        If objPart.GetType = swDocPART Then
            Set objModel = objModel.InsertPart(objModel, 0)
        End If
        
        'Save the file as a part
        Dim strNewName As String
        strNewName = Replace(strFile, ".sldprt", "_new.sldprt")
        objSW.ActiveDoc.SaveAs3 "C:\Users\emilien.petit\Desktop\VolumeCalculation\" & strNewName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, Nothing, Nothing
        
        'Close the file
        objSW.CloseDoc (strPath & strFile)
        
        'Get the next file name
        strFile = Dir()
    Loop
    
End Sub

Need help to correct the error

Answer 1

According to SOLIDWORKS API documentation InsertPart method does exist for ModelDoc2 if it has type PartDoc, but it requires filename, not a PartDoc parameter. I suppose this is what is causing type mismatch.

So I suggest you try adding a part like this:

Call objModel.InsertPart("C:\Users\emilien.petit\Desktop\VolumeCalculation\BoundingBox.SLDPRT", /*three bool options that you want for import*/)