¿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