Sub SaveAsWithIndex()
' Paul Beverley - Version 30.06.23
' Saves the current file, adding a postfix

switchTC_ON = True
myPostfix = "_PB_01"

myName = ActiveDocument.FullName
dotPos = InStr(myName, ".do")
fType = Mid(myName, dotPos)
myNm = Replace(myName, fType, "")
myPostfix = myPostfix & ".doc"

num = Val(Right(myNm, 2))
If InStr(myNm, Left(myPostfix, 3)) = 0 Then
  myResponse = MsgBox("Save the current file, adding a postfix?", _
       vbQuestion + vbYesNo, "SaveAsWithIndex")
  If myResponse = vbNo Then Exit Sub
  myName = Replace(myName, ".doc", myPostfix)
  If switchTC_ON Then ActiveDocument.TrackRevisions = True
Else
  newNum = Trim(Str(num + 1))
  If Len(newNum) = 1 Then newNum = "0" & newNum
  myName = Left(myNm, Len(myNm) - 2) & newNum & fType
  myResponse = MsgBox("Save the current file, with number " _
       & newNum & " ?", vbQuestion + vbYesNo)
  If myResponse = vbNo Then Exit Sub
End If
TestStr = ""
TestStr = Dir(myName)
If TestStr > "" Then
  Beep
  myResponse = MsgBox("Filename exists! Overwrite?", _
       vbQuestion + vbYesNo, "SaveAsWithIndex")
  If myResponse = vbNo Then Exit Sub
End If
ActiveDocument.SaveAs fileName:=myName
End Sub