Hey Guys, new to the forum here but have been using solidworks for 7 or 8 years now!

I have written a basic macro to Save As a PDF (into the folder the drawing is in) and then close the document without saving. I was wondering if I can get this macro to run on all open documents from within the macro, ie. I hit the button once and it runs through every open document saving as a pdf and then closing.

Any help would be greatly appreciated! (See my macro details below)

______________________________________________________________________________________________________

Dim swApp As SldWorks.SldWorks

Dim Part As SldWorks.ModelDoc2

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Dim FilePath As String

Dim Pathsize As Long

Dim PathNoExtension As String

Dim NewFilePath As String

FilePath = Part.GetPathName

Pathsize = Strings.Len(FilePath)

PathNoExtension = Strings.Left(FilePath, Pathsize - 6)

NewFilePath = PathNoExtension & "pdf"

Part.SaveAs2 NewFilePath, 0, True, False

swApp.QuitDoc Part.GetTitle 'to disable auto close of doc add ' to start of this line

MsgBox "Saved" & NewFilePath 'to get rid of message box add ' to start of this line

End Sub

____________________________________________________________________________________