Mike,

I've not yet tested but the information I've seen says you create a new
subkey of UserDefinedPlaces (such as Place1, Place2, etc.) and give it two
values, "Name" and "Path".  The data for name will be the string that is the
name of your folder and path is the string representing the path.  I suspect
that you can use either the regular path or the PIDL for the folder as
entries in the registry and Word will respond the same way.  Since you're
creating the folder and know the path, try using that instead of determining
the PIDL.

Steve

Mike,

I figured out how to use Windows API to return the PIDL but the value is
returned as a long integer and converting to binary or DWord didn't appear
to deliver the value needed for the registry.  However, when I wrote a
subroutine to create the new subkey and entered a value named "Path" with
the path to a new folder for the MyPlaces bar, it ended up being converted
to a pidl value (after testing in Word and then checking using regedit).

Below is a sample subroutine that might help you out.  I'm using WMI to read
from and write to the registry rather than the RegWrite method of the
windows script host shell object like you planned.  Just alter the top two
lines in the sub to reflect the name and path to the folder you want added
to MyPlaces.

_____________________________________________

Sub NewMyPlacesFldr()

strMyPlaceName = "Testing Folder"
strMyPlacePath = "C:\Test"

On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001
strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & _
   strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Office\" _
 & Application.Version & "\Common\Open Find\Places\UserDefinedPlaces"
objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys

intNew = -1

For Each objSubkey In arrSubkeys
 intPlace = CInt(Right(objSubkey, Len(objSubkey) - 5))
 If intPlace > intNew Then
   intNew = intPlace
End If
Next

intNew = intNew + 1

strKeyPathNew = strKeyPath & "\Place" & CStr(intNew)
objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPathNew

strValue = strMyPlaceName
strValueName = "Name"
objRegistry.SetStringValue HKEY_CURRENT_USER, _
  strKeyPathNew, strValueName, strValue

strValue = strMyPlacePath
strValueName = "Path"
objRegistry.SetStringValue HKEY_CURRENT_USER, _
  strKeyPathNew, strValueName, strValue

End Sub

_____________________________________________

Steve Yandl