Macro en Word 2007 para realizar cambios y guardar con otra extensión

Tengo bastantes ficheros .doc a los que necesito realizar unos cambios y guardarlos como .docx.

En todos los casos los cambios a realizar son los mismos y el nombre del fichero al guardarlo tiene que ser el del documento activo en cada momento pero con la nueva extensión.

Estoy intentando crear una macro para ello con el grabador de macros pero si bien los cambios me los realiza correctamente, a la hora de guardar el fichero me los guarda siempre con el nombre del que utilicé para la grabación de la macro (Documento1).

El código generado es el siguiente:

...

...
ActiveDocument.SaveAs FileName:= _
"Documento1.docx", FileFormat:= _
wdFormatDocumentDefault, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False