Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: Anonymous

I should also mention that I have been attempting to do this another way but do not have all of the options I need to add the copyright details etc into the exported file.

Would it be easier to add the properties to this code?

If so, could anybody help me to do this please? 

'ThisDoc.Document.SaveAs(ThisDoc.ChangeExtension(".stp"), True)
If Left(iProperties.Value(docFName,"Project", "Part Number"),2)= "PE" Then 
altName = "_" & iProperties.Value("Project","Revision Number") & ".stp" 
strFolder = "N:\PE\" & ThisDoc.FileName(False) 'without extension
ThisDoc.Document.SaveAs(strFolder & altName,True)

MessageBox.Show(ThisDoc.FileName(False) & altName & " saved!!" & vbCrLf & vbCrLf & strFolder & altName , "RELEASED STEP")


Else 


If Left(iProperties.Value(docFName,"Project", "Part Number"),2)= "SK" Then 
altName = "_" & iProperties.Value("Project","Revision Number") & ".stp" 
strFolder = "N:\SK\" & ThisDoc.FileName(False) 'without extension
ThisDoc.Document.SaveAs(strFolder & altName,True)

MessageBox.Show(ThisDoc.FileName(False) & altName & " saved!!" & vbCrLf & vbCrLf & strFolder & altName , "RELEASED STEP")


'ThisDoc.Document.SaveAs(strFolder & (".stp") , True)
'ThisDoc.Document.SaveAs(strFolder & (".pdf") , True)

'MessageBox.Show("All file formats saved", "File Save")

End If
End If