Sub Main()
 Set swApp = CreateObject("SldWorks.Application")

Set swModel = swApp.ActiveDoc

Set swDraw = swModel

Set swView = swDraw.GetFirstView

While Not swView Is Nothing

' Determine if this is a view of a part or assembly
 If swView.GetReferencedModelName <> "" Then
 sModelName = swView.GetReferencedModelName

sConf = swView.ReferencedConfiguration

sModelName = LCase(sModelName)
 If InStr(sModelName, ".sldprt") Then

nDocType = swDocPART

Else

nDocType = swDocASSEMBLY

End If

Set swDrawModel = swApp.ActivateDoc3(sModelName, True, 0, nErrors)
 boolstatus = swDrawModel.ShowConfiguration2(sConf)
 End If

Set swView = swView.GetNextView

Wend

End Sub