URGE Copia seguridad Word

Anónimo,

Desafortunadamente no existe una función nativa en Word para cambiar el
sitio donde guardar la copia de seguridad, siempre la hará en el sitio donde
reside el archivo original.

Quizás una macro que te permita además realizar una copia del archivo en
otro sitio que designes, por ejemplo, en un servidor. Este es un ejemplo de
lo que implementamos en mi trabajo, también te lo adjunto.

Primero debemos establecer una variable que guardará el nombre (NNombre) y
saber qué función especial muestra en pantalla una ventana de diálogo para
que nos pida el nombre del archivo; esta función es InputBox. En tu caso
puedes copiarla y únicamente cambiar las rutas de ambos directorios por las
rutas que desees.

Sub GuardarDosCarpetas()
Dim Msj, NNombre
Msj = "Escriba el nombre del documento"
NNombre = InputBox$(Msj)
' Aquí guarda localmente
ChangeFileOpenDirectory "C:\"
ActiveDocument.SaveAs FileName:=NNombre, FileFormat:=wdFormatDocument,
LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False,
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:=False
' Aquí guarda en la red
ChangeFileOpenDirectory "\\Pentium3\datos"
ActiveDocument.SaveAs FileName:=NNombre, FileFormat:=wdFormatDocument,
LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:=False
End Sub

menteAtenta,
Pilar Mueckay [MVP - Office]
Ecuador
**** Gracias por votar si las aportaciones contestaron su pregunta o le han
ayudado ****


"Anonimo" escribió en el mensaje
news:

Buenos días. Me gustaría saber si hay alguna manera de especificar al Word
dónde quiero guardas los archivos que se generan al activar al opción de
copia de seguridad.
Me gustaria indicarle que los archivos que guardo yo manualmente me los
guarde por defecto en una carpeta concreta de un servidor, y los q se
generan
automaticamente por la opción de "copia de seguridad" del word me los
guarde
en otra carpeta.
Muchas gracias y un saludo

begin 666 GuardarDosCarpetas.zip
M4$L#!!0````(`&]6;#%R0YY=<@$``'L#```6````1W5A<F1A<D1O<T-A<G!E
M=&%S+F)A<]U3S6K;0!"^"@T`1,(O0ET4"2Y!!+;)*:]&,QX=W"W6>VJ
MN[.Q_= ]]06ZJ[C!)I!33KW-S_<S,S ULU.;P 3?;M8S[ DJ*.[_R*#M=9%G
M\X&5-=#M!ZV$XCS+L\>P@:\!G4376M^@&XC17USF&4"K>KCW/R<PF]E^XRC5
M8IXT.R^B$0)I,&,/9 RE%:$GP[9(T",KPF_-$/C&[C]=1/HH_1GJ7^$W;$=G
MT%:@3L31HOF!9DM3I6D^D&F5(\'6':!HRM4H7 M6S]0>S:X>\9EJ#XF05BZK
MH_%D+$VMZY'+:B=?HG^T"=Q9\8/B6^K*:H?:0LT/N==;*LBF("M91+^T B
M0I)6A"U=B*CO3C&=0Q\(Y=SH0T2/FI+DJVC7;(PQ(%._=+P,TS[+)3@
MX%[G/>FGDF^1\:Q:^WK>='?$3.[8>'M9,J 1',EW#[M:+>*&*O1?5A+9^O_N
MRNNT$'STL3LC(?Y/>J,\^PM02P$"% `4````" !O5FPQ<D.>77(!``![`P``
M%@`````````!`" `@($`````1W5A<F1A<D1O<T-A<G!E=&%S+F)A<U!+!08`
1`````0`!`$0```"F`0``````
`
end