Macro - Guardar en Escritorio independientemente del nombre del usuario

Hola a todos es mi primer mensaje en este grupo.

La siguiente macro:

Application.DefaultSaveFormat = ""
ChangeFileOpenDirectory _
"C:\Documents and Settings\Administrador\Escritorio\"
ActiveDocument.SaveAs FileName:="Salvado.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="123456", _
AddToRecentFiles:=True, WritePassword:="",
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False,
SaveFormsData _
:=False, SaveAsAOCELetter:=False

Guarda el documento activo con el nombre Salvado.doc y protegido con
la contraseña 123456 en el Escritorio del usuario de nombre
Administrador. Esto funciona bien en Windows XP y si el usuario es
Administrador.

Cómo puedo hacer para que la macro grabe el documento en el escritorio
del usuario independientemente de si está bajo XP o Vista y del nombre
de usuario?

O sea, si el usario está en XP pero se llama Juan esta macro no
funciona porque la ruta "C:\Documents and Settings\Administrador
\Escritorio\" no es correcta.

Si el usuario se llama Administrador pero está en Vista tampoco la
ruta sirve porque en realidad debería ser del tipo "C:\Users
\Administrador\Escritorio\" o algo parecido.