Macros

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

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
>

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
>

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
>> >
>>
>>
>>

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
>> >
>>
>>
>>