''Runnning this macro will save the file with -01 at the end.
''When your part/assy is numbered 162490000-M1 it will save the drawing as 162490000-01.
''A good example on how to manipulate the save drawing number/name.

''Macro created by Stefaan Boel
''Copyright by Inventor Wizard (http://www.inventorwizard.be)
''Use this macro at your own risk.
''You may only copy/modify this or part of the code if you leave this header!

Public Sub saveas01()
On Error Resume Next

Dim oApp As Application
Dim oCurrentDoc As Document

Set oApp = ThisApplication
Set oCurrentDoc = oApp.ActiveDocument

Dim spath As String
Dim wordsdoc() As String
Dim wordslink() As String
Dim Delimiter As String

'Path where the files are saved
spath = "C:\"

'Link filename and referenced file name to parameter
Delimitedstring = oCurrentDoc.DisplayName
sPartFileName = oCurrentDoc.ReferencedFiles(1).DisplayName
Delimiter = "-"

' Split the string at the "-" characters.
wordsdoc() = Split(Delimitedstring, Delimiter)
s01 = Left(wordsdoc(1), 2)
wordslink() = Split(sPartFileName, Delimiter)
sM1 = Left(wordslink(1), 2)

'Do a doc save
If s01 = "01" Then
oApp.SilentOperation = True
Call oCurrentDoc.Save

Else

'Save the file with 01 instead of M1
If sM1 = "M1" Then
oApp.SilentOperation = True
Call oCurrentDoc.saveas(spath & wordslink(0) & "-" & "01" & ".idw", False)

End If
End If
End Sub