Application.NetworkTemplatesPath Not Working

  • Thread starter Thread starter Sonny Maou
  • Start date Start date
S

Sonny Maou

In Word, I can see the "workgroup templates" path is set. However, Excel
apparently doesn't see it. Are there any known issues with
Application.NetworkTemplatesPath() not returning the specified path?
 
I believe a shared path has to be set in the registry. For Excel 2003 it
seems to be:

HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\General\SharedTempla
tes
 
Jim said:
I believe a shared path has to be set in the registry. For Excel 2003 it
seems to be:

HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\General\SharedTempla
tes

Good clue. I checked my system and I'm running Word 2002 (10.0), so the
shared template path specified there doesn't get put into the
SharedTemplate registry entry to Excel 2003 (11.0).

Thanks! :)
 
Dave,
Thanks, managed to set it, but none of those templates are coming up when
New is selected, only from the local templates folder.

NickHK
 
Nick-

I've found that if you manually add the registry key:

HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\General\SharedTemplat
es

then Excel 2000 will include templates it finds on that path.

You have to use the Regedit.exe program to add this entry, which you can
start from Start->Run.
 
Dave said:
Try changing it in MSWord.

xl2002 finds the location that way.

Well, I'm using xl2003! That's why it didn't/wouldn't work that way. :)
 
I just spent an hour searching this group and came up with a way to
setting it programmatically in Excel VBA. Works for Office 2000, not
sure about the rest. Here it is.

Sub SetNetworkTemplatesPath()
'********************************************************************
' Purpose:
' Set Excel's NetworkTemplatesPath by way of setting
' Word's WorkgroupTemplatesPath
'********************************************************************

'// Must check Tools / References / Microsoft Word 9.0 Object Library
Dim oWord As Object
Set oWord = New Word.Application

'// see what Excel has to begin with
MsgBox ("Excel's Network Path Was: " & _
vbCrLf & Application.NetworkTemplatesPath)

'// set Word's path to your LAN path
oWord.Options.DefaultFilePath(wdWorkgroupTemplatesPath) = _
"W:\Office2K\WorkgroupTemplates"

'// Excel follows suit!
MsgBox ("Excel's Network Path Is: " & _
vbCrLf & Application.NetworkTemplatesPath)

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top