Private Sub Document_New()
oNum = System.PrivateProfileString("C:\increment.txt", "InvNmbr", "oNum")
If oNum = "" Then
oNum = 1
Else
oNum = oNum + 1
End If
System.PrivateProfileString("C:\increment.txt", "InvNmbr", "oNum") = oNum
ActiveDocument.Bookmarks("oNum").Range.InsertBefore Format(oNum, "00#")
ActiveDocument.SaveAs FileName:="path" & Format(oNum, "00#")
End Sub
|