Creating sequentially numbered documents

[Brenna]

Following an article contributed by Doug Robbins (MVP)I
set up a form template with the intent of having the form
self-number everytime an employee used "File New". The
template resides on the company network. (Employees have
read rites to the directory/folder)in order to access the
template.

Have inserted an AutoNew macro for autonumbering (see
Doug Robbins (MVP)handiwork with mods below)into a form
template. The bookmark the text file is
dumping into is in an unprotected section of the
template. Both template and accompanying text file reside
on a common server (though not in the same folder). The
problem? It works fine from my computer and another
computer in my office,(both machines have read/write
access to the directory/folder where the template is
stored)(elation! huzza huzza!) but does not work from
other computers on the network (despair! very unhappy
face!). The employees have read rights to the folder
where the template resides through a tab within word.
When the user selects "FileNew", the file opens and
hesitates, like it is trying to pull it together, then
they get a Visual Basic error which reads:
Method 'PrivateProfileString' of object 'System' Failed. I
don't have a clue what the message is trying to tell me,
especially since it works great in the department but
fails everywhere else. Any help in figuring this one out
would be greatly appreciated by myself as well as my
users.. best regards
----------------------------------------

Sub AutoNew()
'
' AutoNew Macro
' Macro created 9/17/2003 by XXXXXX
'

ReqNo = System.PrivateProfileString("\\NTServer\
Settings.Txt", "MacroSettings", "ReqNo")
If ReqNo = "" Then
ReqNo = 0
Else
ReqNo = ReqNo + 1
End If


System.PrivateProfileString
("\\NTServer\Settings.Txt", "MacroSettings", "ReqNo") =
ReqNo

ActiveDocument.Bookmarks("ReqNo").Range.InsertBefore Format
(ReqNo, "00000#")
ActiveDocument.SaveAs FileName:="ReqNo" & Format
(ReqNo, "00000#")

End Sub

 

[Doug Robbins - Word MVP - DELETE UPPERCASE CHARACT]

Sounds like the other users do not have access to "\\NTServer\Settings.Txt"
They will need Read/Write access for the routine to work.

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP