You don't need a third party tool. The code to save the current document into the same directory could be as simple as this
Sub temp1()
Dim sFileName As String
sFileName = ActiveDocument.FullName
ActiveDocument.PrintOut Background:=False, PrintToFile:=True, OutputFileName:=sFileName & ".ps"
End Sub