Hey Guys,

I have written (with your help) a macro that saves all open drawings (or files maybe doesn't matter) and closes. This works great!

I am wondering if I can add the revision letter  to the file name in a specific place when the macro saves it as a PDF?

The naming convention for drawings at the company I work for puts a -A after the part number but before the description in the file name of the PDF. eg. "234101-100-01-A Beam Fabrication.pdf" when the drawing part name is "234101-100-01 Beam Fabrication.slddrw"

The revision is a custom property from the part document ( $PRPSHEET:"Revision" )

So my rambling aside can insert put the -$PRPSHEET:"Revision" 13 characters in from the left while saving as a pdf in my macro???

Any help would be greatly appreciated (please see my macro code below and feel free to modify it )

_________________________________________________________________________________________________

Dim swApp As SldWorks.SldWorks

Dim Part As SldWorks.ModelDoc2

Sub main()

Set swApp = Application.SldWorks

Dim FilePath As String

Dim Pathsize As Long

Dim PathNoExtension As String

Dim NewFilePath As String

swDocs = swApp.GetDocuments

     For i = 0 To UBound(swDocs)

          Set Part = swDocs(i)

          If Part.GetType = swDocDRAWING Then

               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   

          End If

      Next i

End Sub

______________________________________________________________________________________________________