Macros

Hola:
Ahora sí te he entendido :-)
Creo que el error te lo marca en CamRuta porque realmente no es una ruta solamente
sino una ruta y un archivo.
Si la estructura de directorios es la misma puedes usar Path en lugar de FullName.
Con esto obtienes la ruta del directorio. Para que el nuevo documento se guarde con
el mismo nombre que el actual puedes usar ActiveDocument.Name que te da el nombre del
documento.
Otro error, creo (que yo de esto no entiendo mucho) es que en el TextBox, aunque lo
cambies cuando estés en el form no te toma el cambio porque le has dicho que sea
FullName y no le has dicho que lo actualize (no sé si me explico)
Puedes probar el siguiente código a ver si se ajusta a lo que tú pides:
Private Sub UserForm_Initialize()
TextBox1 = ActiveDocument.Path
TextBox2.Text = TextBox1
CommandButton1.SetFocus
End Sub


Private Sub CommandButton1_Click()
strNombre = ActiveDocument.Name
ActiveDocument.SaveAs FileName:=strNombre
MsgBox "El archivo ha sido guardado en " & TextBox1
ChangeFileOpenDirectory (CamRuta)
ActiveDocument.SaveAs FileName:=strNombre
MsgBox "El archivo ha sido guardado en " & TextBox2
End Sub

Private Sub TextBox2_AfterUpdate()
CamRuta = TextBox2.Text
End Sub

He dejado dos msgbox para que veas sí realmente cambia la ruta del archivo (realmente
sólo tienes que cambiar la unidad)
Pruébalo y comenta si te sirvió o no (así aprendemos todos)


Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

"Japolaya" escribió en el mensaje
news:
> Marta
> Lo que quiero hacer en el formulario es lo que entendiste, con el textbox1
> capturar la ruta actual del archivo abierto y grabar; y con el textbox 2
> cambiar la ruta para que tambien se grabe ahi.
>
> Por ejemplo como aparece en mi formulario
>
> Textbox1= U:\SGC_OpTelas\ProcesoCompras\contratos de compra.doc
> Save
> Textbox1= X:\SGC_OpTelas\ProcesoCompras\contratos de compra.doc
> Save
>
> Saludos,
>
> Nota: Por favor no consideres la macro es un error mio.
>
> "Marta PM [MVP Office]" escribió:
>
>> A ver, por partes :-)
>> En la macro2 tu abres un archivo en un directorio determinado.
>> Luego tienes un formulario en donde tienes dos textbox que no sé muy bien qué
>> función
>> tienen.
>> ¿Puedes explicar un poco más en qué consiste lo que quieres hacer? Es decir, ¿En
>> qué
>> paso exactamente tratas de cambiar la ruta?
>> Entiendo que en el textbox1 tomas la ruta del archivo que tienes abierto ahora y
>> que
>> en texbox2 quieres la nueva ruta del archivo ¿o entiendo mal?
>>
>>
>> Marta PM
>> Saúdos/Saludos
>> MVP Office
>>
>> (Si quieres escribirme ya sabes lo que no quiero)
>> Más consejos en www.fermu.com
>> __________
>> La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
>> explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo
>> al
>> poner en práctica lo recomendado o sugerido en el presente mensaje.
>>
>> ¿Quieres saber que es un MVP?
>> http://mvp.support.microsoft.com/
>>
>> "Japolaya" escribió en el mensaje
>> news:
>> > Hola Martha, adjunto el formulario y macro creada
>> >
>> >
>> > Dim CamRuta
>> > Private Sub CommandButton1_Click()
>> >
>> > ChangeFileOpenDirectory (CamRuta) <<<<< Este es el error
>> >
>> > End Sub
>> >
>> > Private Sub UserForm_Initialize()
>> > TextBox1 = ActiveDocument.FullName
>> > TextBox2 = ActiveDocument.FullName
>> > CamRuta = ActiveDocument.FullName
>> > CommandButton1.SetFocus
>> > End Sub
>> >
>> > Sub Macro2()
>> > '
>> > ' Macro2 Macro
>> > ' Macro grabada el 30/12/2005 por Joel Apolaya Cardenas
>> > '
>> > ChangeFileOpenDirectory _
>> > "U:\01. Sistema Documentario\07. Proc. de Realizacion del
>> > Producto\17 Proceso - Desarrollo del Producto\17.0 Proceso - Macro\00 Doc.
>> > Vigentes\"
>> > Documents.Open FileName:= _
>> > """04 F.CR.01-PL Corte de Tela - Ed 1 - Vigente.doc""", _
>> > ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
>> > PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
>> > WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
>> > wdOpenFormatAuto
>> > End Sub
>> >
>> >
>> > Como puedes ver lo que intento es capturar la ruta y grabar el archivo en
>> > otra ruta, cuya diferencia entre ambos es solo la unidad de red, porque como
>> > estructura de carpetas es la misma en ambos servidores que tenemos.
>> >
>> > Ahora si fuera descarga en una sola carpeta podria pre establecer ruta, pero
>> > tengo aproximadamente 215 carpetas diferentes, y es por ello que busco
>> > capturar la ruta.
>> >
>> >
>> > Desde ya agradesco la ayuda o aconsejarme otra forma de como lograr este
>> > cometido.
>> >
>> > Saludos,
>> >
>> > "Marta PM [MVP Office]" escribió:
>> >
>> >> Hola:
>> >> ¿Puedes poner la macro que has creado?
>> >>
>> >> Marta PM
>> >> Saúdos/Saludos
>> >> MVP Office
>> >>
>> >> (Si quieres escribirme ya sabes lo que no quiero)
>> >> Más consejos en www.fermu.com
>> >> __________
>> >> La información contenida en este mensaje se proporciona "TAL CUAL", sin
>> >> garantías
>> >> explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier
>> >> riesgo
>> >> al
>> >> poner en práctica lo recomendado o sugerido en el presente mensaje.
>> >>
>> >> ¿Quieres saber que es un MVP?
>> >> http://mvp.support.microsoft.com/
>> >>
>> >> "Japolaya" escribió en el mensaje
>> >> news:
>> >> > Amigos, necesito su ayuda para lo siguiente, trabajamos con dos servidores
>> >> > para tener guardado los documentos, para lo cual tenemos que dar guardar como
>> >> > dos veces para cambiar de ruta.
>> >> > Para ello estoy haciendo una macro para que guarde el documentos en dos
>> >> > rutas y hay tengo el problema
>> >> > No puedo hacer que el Chdir tome la ruta de una variable o no se otra forma
>> >> > en que yo selecciono la ruta y se grabe en esta nueva ruta,
>> >> > el procedimiento es:
>> >> > Capturo la ruta actual del archivo con activatedocument.fullname
>> >> > Cambio la Ruta en un textbox
>> >> > y no deja cambiar la ruta para un save.as
>> >> >
>> >> > Agradesco su ayuda
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>