Sequentially numbering a document

[UniAdmin]

I have been trying to add a sequential numbering macro to a word document so that each time it is opened the document is given a new number. The form in question is to record 'near misses' and it would be helpful to be able to open and print off the form each time it was required to be filled in with the next number.

I have tried the code below:

Sub AutoNew() 
    FormNumber = System.PrivateProfileString("C:\Settings.Txt", _ 
    "MacroSettings", "Order") 
    If FormNumber = "" Then 
        FormNumber = 1 
    Else 
        FormNumber = FormNumber + 1 
    End If 
    System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _ 
    "FormNumber") = FormNumber 
    ActiveDocument.Bookmarks("FormNumber").Range.InsertBefore Format(FormNumber, "00#") 
    ActiveDocument.SaveAs FileName:="path" & Format(FormNumber, "00#") 
End Sub 

But I get an error message at the line beginning 'System. Private' telling me that the _ is not a valid character.

Any help gratefully received

[macropod]

You code looks OK, though:
• you haven't declared your 'FormNumber' variable;
• "Order" should read "FormNumber";
• your code inserts the form number before the bookmark, rather than updating it, which means any cross-references to the bookmark also won't update to reflect the form number; and
• you may encounter permissions issues trying to write to C:\

For a different approach, see: https://www.msofficeforums.com/word/...iple-docs.html