indiaenergy

What you should have is
Sub AutoNew()
Dim order As Long
order = 0
If Dir('C:tempSettings.Txt') <> ' Then
order = System.PrivateProfileString('C:tempSettings.Txt', _
'MacroSettings', 'Order')
End If
If order = 0 Then
order = 1
Else
order = order + 1
End If
System.PrivateProfileString('C:tempSettings.txt', 'MacroSettings', _
'Order') = order
Selection.Range.InsertAfter Format(order, '00#')
End Sub
Note that in some operating systems e.g. Windows 7 you may not be able to write to the root of the C drive so an alternative pre-existing folder would be advisable as above.
The macro now also checks for the presence of the settings ini file.
The changes are highlighted in bold
HOWEVER! This macro runs when you create a new document from the template containing it, so the Selection Range is always going to be at the end of the document. If you want the number to go elsewhere you need either to write the value to a bookmarked location pre-inserted in the template or to a document variable and display the variable with a docvariable field.
If you want to be able to manually insert the next number at the cursor then change the macro name from autonew to (e.g.) InsertMyNumber
You may find http://www.gmayor.com/automatic_numbering_documents.htm useful.

What you should have is
Sub AutoNew()
Dim order As Long
order = 0
If Dir('C:tempSettings.Txt') <> ' Then
order = System.PrivateProfileString('C:tempSettings.Txt', _
'MacroSettings', 'Order')
End If
If order = 0 Then
order = 1
Else
order = order + 1
End If
System.PrivateProfileString('C:tempSettings.txt', 'MacroSettings', _
'Order') = order
Selection.Range.InsertAfter Format(order, '00#')
End Sub
Note that in some operating systems e.g. Windows 7 you may not be able to write to the root of the C drive so an alternative pre-existing folder would be advisable as above.
The macro now also checks for the presence of the settings ini file.
The changes are highlighted in bold
HOWEVER! This macro runs when you create a new document from the template containing it, so the Selection Range is always going to be at the end of the document. If you want the number to go elsewhere you need either to write the value to a bookmarked location pre-inserted in the template or to a document variable and display the variable with a docvariable field.
If you want to be able to manually insert the next number at the cursor then change the macro name from autonew to (e.g.) InsertMyNumber
You may find http://www.gmayor.com/automatic_numbering_documents.htm useful.