Anonymous
in reply to:
Anonymous
07-17-2015
03:30 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-17-2015
03:30 AM
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