restrict user to a directory structure?

[Dave]

Hi All,

I have a user whos computer skills are zero and does not understand
the concept of directories and there use.
I would like to restrict him from saving word files only in the
directory h:\word & sub-directories underneath it.

I was thinking of a startup macro which could do the job, check the
path and if the path is not h:\word it would change the path to h:
\word and list the sub-directoreis and let the user save the file.

All suggestions are welcome and even more appreciated is a macro that
would do the job as my programming skills are very very minimum.

thanks in advance ,

Dave

 

[Doug Robbins - Word MVP]

Create a template for him to use that contains an autonew macro that
contains code to save each document that he creates into the desired folder
with a pre-assigned file name. The he will never be asked to use
File>SaveAs and all he will have to do is use File>Save.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[Dave]

Create a template for him to use that contains an autonew macro that
contains code to save each document that he creates into the desired folder
with a pre-assigned file name.  The he will never be asked to use
File>SaveAs and all he will have to do is use File>Save.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.











- Show quoted text -

Thanks Dough for the hint. Can you please write me a little vbcode to
do this task?
Dave

 

[Doug Robbins - Word MVP]

Use

Sub AutoNew()

Dim PathName As String, NameofFile As String, n As Long
PathName = "C:\Data\" ' Modify as required
NameofFile = InputBox("Enter the name for the file", "File Save As")
If Dir(PathName & NameofFile & ".doc") = "" Then
ActiveDocument.SaveAs (PathName & NameofFile & ".doc")
Else
n = 1
Do While Dir(PathName & NameofFile & n & ".doc") <> ""
n = n + 1
Loop
ActiveDocument.SaveAs PathName & NameofFile & n & ".doc"
End If

End Sub

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

Create a template for him to use that contains an autonew macro that
contains code to save each document that he creates into the desired
folder
with a pre-assigned file name. The he will never be asked to use
File>SaveAs and all he will have to do is use File>Save.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com"Dave"










- Show quoted text -

Thanks Dough for the hint. Can you please write me a little vbcode to
do this task?
Dave