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

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

Hola María :-)

Pues suponiendo que ese campo asociado a un nombre es un FormText, al
que le has puesto como nombre de marcador "Texto1" prueba con algo de
codigo mas o menos asi:

Sub SaveAs_FormFields()

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


ChangeFileOpenDirectory _
"C:\Documents and Settings\Usuario\Mis documentos\"
ActiveDocument.SaveAs FileName:=X, FileFormat:= _
wdFormatXMLDocument
End Sub

Comentanos cualquier duda ok? :-)

Saludos
Monica


www.fermu.com
www.zorval.es

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

Hola María :-)

Pues suponiendo que ese campo asociado a un nombre es un FormText, al que le
has puesto como nombre de marcador "Texto1" prueba con algo de codigo mas o
menos asi:

Sub SaveAs_FormFields()

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


ChangeFileOpenDirectory _
"C:\Documents and Settings\Usuario\Mis documentos\"
ActiveDocument.SaveAs FileName:=X, FileFormat:= _
wdFormatXMLDocument
End Sub

Comentanos cualquier duda ok? :-)

Saludos
Monica

Correccion :-P

Estoy con Word 2007 para otro word :

Quita XML de la penultima linea de codigo osea dejalo asi:

wdFormatDocument

Igual te funcionara asi:

Sub SaveAs_FormFields()

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


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

Saludos
Monica


www.fermu.com
www.zorval.es

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
>
> Hola María :-)
>
> Pues suponiendo que ese campo asociado a un nombre es un FormText, al que le
> has puesto como nombre de marcador "Texto1" prueba con algo de codigo mas o
> menos asi:
>
> Sub SaveAs_FormFields()
>
> Dim X As String
> X = ActiveDocument.FormFields("Texto1").Result
>
>
> ChangeFileOpenDirectory _
> "C:\Documents and Settings\Usuario\Mis documentos\"
> ActiveDocument.SaveAs FileName:=X, FileFormat:= _
> wdFormatXMLDocument
> End Sub
>
> Comentanos cualquier duda ok? :-)
>
> Saludos
> Monica

Correccion :-P

Estoy con Word 2007 para otro word :

Quita XML de la penultima linea de codigo osea dejalo asi:

wdFormatDocument

Igual te funcionara asi:

Sub SaveAs_FormFields()

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


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

Saludos
Monica


www.fermu.com
www.zorval.es

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

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