AutoNew for Auto numbering not working for all users
From: Brenna (anonymous_at_discussions.microsoft.com)
Date: 02/27/04
- Next message: Fool: "Issues passing a collection of ranges byRef"
- Previous message: Den: "Re: Multiple-step OLE DB operation generated errors"
- Messages sorted by: [ date ] [ thread ]
Date: Fri, 27 Feb 2004 14:29:19 -0800
Have inserted an AutoNew macro for autonumbering (see
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. The problem? It works fine from my
computer and another computer in my office, but does not
work from other computers on the network. 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 tryping to pull it together, then they get a Visual
Basic error which reads: Method 'PrivateProfileString' of
object 'System' Failed. Where do I start looking
(location, permissions, etc.) for a solution so all can
access the autonumbering schema?
----------------------------------------
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
- Next message: Fool: "Issues passing a collection of ranges byRef"
- Previous message: Den: "Re: Multiple-step OLE DB operation generated errors"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
|
