I have created this small macro to launch the SolidWorks Save As dialog

<p>Dim swapp As SldWorks.SldWorks<br>Dim swmodel As SldWorks.ModelDoc2<br>Dim bool As Boolean</p><p> <br>Sub RunSWsaveas()</p><p>     Set swapp = Application.SldWorks<br>     Set swmodel = swapp.ActiveDoc<br>     bool = swmodel.Extension.RunCommand(SwCommands.swCommands_SaveAs, "")<br><br>      'swapp.OpenDoc(Name,Type) '<br><br></p><p>End Sub</p>

But what if I check the "save as copy" option ... how do I get the filename as typed in the save as dialog?

I need this to open the copy of the part right after it has been saved as a copy.