Macro - Guardar en Escritorio independientemente del nombre del usuario

04/07/2009 - 14:14 por Simple | Informe spam
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.
 

Leer las respuestas

#1 Monica May
05/07/2009 - 00:47 | Informe spam
hola,

Pregunto:

Y cual es la necesidad, el porque ? ... de guardarlo en el escritorio?

Comentanos..!

Saludos
Monica

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 nombreAdministrador. Esto funciona bien
en Windows XP y si el usuario es Administrador.
...hacer para que la macro grabe el documento en el escritorio
del usuario independientemente de si esta bajo XP o Vista
y del nombre de usuario?
O sea, si el usario esta 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.

Preguntas similares