¿Como cambiar el nombre de un archivo desde el documento?

Bien Mónica si pincho en propiedades del campo de formularios me sale un
cuadro de dialogo que pone "Opciones de campo de formulario con texto".
Es en Especificaciones donde me pone Texto13
Muchas gracias de nuevo

"Tux" escribió:

María escribió:
> Gracias Mónica por haber contestado:
> Bien hice una macro con lo que me has dicho.
> He sustituido ("Texto1) por el nº de texto que tiene asignado el campo del
> formulario, también he sustituido la palabra USUARIO por el nombre del
> usuario del ordenador.
> Cuando le doy a ejcutar macro para comprobar si esta funciona me sale error
> "5152" en tiempo de ejecución
> No es un archivo válido
> Pruebe una o varias de las siguientes operaciones:
> * Comprube la ruta de acceso para asegurarse de que se escribió correctamentee
> *Seleccione un archivo de la lista de archivos y carpetas.
> Si le doy a depurar me sale ActiveDocument. SaveAs FileName: =X en amarillo
> No alcanzo a ver donde puede estar el error. Quizás alguien logre ver donde
> está.
>
> Gracias otra vez por tu ayuda
>
> "Tux" escribió:
>
>> Tux avait soumis l'idée :
>>> Le 26/01/2007, María a supposé :
>>>> Tengo hecha una plantilla de un formulario y me gustaria que el campo que
>>>> tengo asociado a Nombre se ponga directamente como nombre de ese archivo y
>>>> no tener que ponerlo de nuevo cuando guardo el documento generado por la
>>>> plantilla en el casillero de Nombre de archivo en el cuadro de dialogo
>>>> guardar como
>>>>
>>>> Gracias por vuestra atención


Ok Maria :-)

Tranquila a ver, el campo que has sustituido ¿que campo es? me explico
yo he dado por supuesto que es un FORMTEXT osea que has utilizado un
vamos a llamarlo [cuadro de texto ] de los controles de Formulario ¿es
asi? si no es asi dime exactamente que clase de campo es, donde tienes
asociado ese nombre que tu quieres que se guarde ese documento ok? :-)

Te da el error porque dice que no existe ningun [cuadro de texto ] con
su nombre de marcador :-( para ello es necesario saber como es ese
CAmpo por ejemplo si es un campo de combinacion de correspondencia etc..

Como de Campos hay muchos pues al hablar de formulario pues he supuesto
eso que era un FORMTEX, si sabemos que campo es tendremos el codigo :-)

Comentanos ok? :-)

saludos
Monica




www.fermu.com
www.zorval.com

Bueno Mónica perdón por no entenderte, en efecto es un FORMTEXT
Un saludo

"Tux" escribió:

María escribió:
> Gracias Mónica por haber contestado:
> Bien hice una macro con lo que me has dicho.
> He sustituido ("Texto1) por el nº de texto que tiene asignado el campo del
> formulario, también he sustituido la palabra USUARIO por el nombre del
> usuario del ordenador.
> Cuando le doy a ejcutar macro para comprobar si esta funciona me sale error
> "5152" en tiempo de ejecución
> No es un archivo válido
> Pruebe una o varias de las siguientes operaciones:
> * Comprube la ruta de acceso para asegurarse de que se escribió correctamentee
> *Seleccione un archivo de la lista de archivos y carpetas.
> Si le doy a depurar me sale ActiveDocument. SaveAs FileName: =X en amarillo
> No alcanzo a ver donde puede estar el error. Quizás alguien logre ver donde
> está.
>

Hola de nuevo :-)

Mejor aun que creo que no me explique bien :-( , coge el docuento y dale
a ALT+F9 ahi podras ver los campos que son pues pon me lo que te sale
entre llaves y sabre que clase de campo es :-)

para volverlo a dejarlo igual dale otra vez a ALT+F9 :-)

Comentanos :-)

Saludos
Monica



www.fermu.com
www.zorval.com

María escribió:

Bueno Mónica perdón por no entenderte, en efecto es un FORMTEXT
Un saludo

No perdona yo que estoy hoy un poco espesa :-( , bien pues eso es eso es
lo que has de poner donde pone Texto1 tu tines que poner Texto13
exactamente lo que te pone en especificaciones o marcador (es que ahora
tengo aqui a mano un office en ingles y hasta mañana no podre cambiarme
al español :-(

Bien pues ahora tu tienes que poner exactamente eso Texto13 prueba a ver
, (ahora que estoy pensando que creo que ya lo habias hecho asi no?
bueno ya me comentas ok? :-)



www.fermu.com
www.zorval.com

María escribió:

Bueno Mónica perdón por no entenderte, en efecto es un FORMTEXT
Un saludo

VAle y si es asi entonces me he liado yo sola :-( mira la ruta que este
correcta exactamente que sea esa por ejemplo:

Sub SaveAs_FormFields()

Dim X As String
X = ActiveDocument.FormFields("Text13").Result


ChangeFileOpenDirectory _
"H:\Documents and Settings\Juan\Mis documentos\"
ActiveDocument.SaveAs FileName:=X
End Sub

Como ves esta ruta pertenece al directorio " H " con eso hay que tener
cuidado y sobre todo la barra final invertida en Mis documentos si es
este caso o si es otra carpeta por ejemplo "C:..\Mi carpeta\"

Mira eso tambien :-)


www.fermu.com
www.zorval.com

Bueno Mónica, en efecto ya lo había hecho así el problema me viene en

Si le doy a depurar me sale ActiveDocument. SaveAs FileName: =X en amarillo

Cuando le doy a ejcutar macro para comprobar si esta funciona me sale error
"5152" en tiempo de ejecución
No es un archivo válido
Pruebe una o varias de las siguientes operaciones:
* Comprube la ruta de acceso para asegurarse de que se escribió
correctamentee
*Seleccione un archivo de la lista de archivos y carpetas.

No alcanzo a ver donde puede estar el error. Quizás alguien logre ver donde
está.
No parece que el error esté en el nombre del texto, sino en lo que viene
después de File NameOpenDirectory.

Gracias, haber si lo logramos

"Tux" escribió:

María escribió:
> Bueno Mónica perdón por no entenderte, en efecto es un FORMTEXT
> Un saludo
>

No perdona yo que estoy hoy un poco espesa :-( , bien pues eso es eso es
lo que has de poner donde pone Texto1 tu tines que poner Texto13
exactamente lo que te pone en especificaciones o marcador (es que ahora
tengo aqui a mano un office en ingles y hasta mañana no podre cambiarme
al español :-(

Bien pues ahora tu tienes que poner exactamente eso Texto13 prueba a ver
, (ahora que estoy pensando que creo que ya lo habias hecho asi no?
bueno ya me comentas ok? :-)



www.fermu.com
www.zorval.com