Word - Macro para "Guardar Como"

   
Vista:

Macro para "Guardar Como"

Publicado por Julio Guerrero (1 intervención) el 31/08/2013 14:55:28
Buneos días: quisiera crear una macro -en Word 2007- para que una vez abierto un documento, pueda darle un determinado nombre, y directamente se me abra la ventana de Guardar Como en el directorio de Mis documentos.
Ya se que F12 hacia algo similar, pero por lo que sea no me funciona (creo que he borrado esa macro).
Por tanto lo que pretendo es que una vez que tengo abierto el documento, pinchar en F12 y que se me abra la ventana de Guardar Como -en el directorio: Mis Documentos- PARA QUE YO PUEDA ESCRIBIR DIRECTAMENTE EL NOMBRE DEL FICHERO.
Cuando pretendo crear esta macro no puedo finalizar la grabación si no le doy un nombre al fichero, y yo lo que quiero es que la misma macro me sirva para dar distintos nombres a distintos ficheros.
O al menos conseguir que se me abra la ventana de Guardar Como en el directorio de Mis Documentos.
Muchas gracias por adelantado a quien pueda ayudarme.
Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Macro para "Guardar Como"

Publicado por Antoni Masana (158 intervenciones) el 03/09/2013 08:42:55
El procedimiento es el siguiente:

Creas la macro realizando la acción que deseas, en esta caso Guardar como... y completas la acción.

Crea un macro como esta:

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
'
' Macro3 Macro
'
'
    ActiveDocument.SaveAs2 FileName:="Mi documento.docm", FileFormat:= _
        wdFormatXMLDocumentMacroEnabled, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False, CompatibilityMode:=14
End Sub

Yo modifica la visualización para verlo mejor.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveDocument.SaveAs2 FileName:="Mi documento.docm", _
                           FileFormat:=wdFormatXMLDocumentMacroEnabled, _
                           LockComments:=False, Password:="", _
                           AddToRecentFiles:=True, _
                           WritePassword:="", _
                           ReadOnlyRecommended:=False, _
                           EmbedTrueTypeFonts:=False, _
                           SaveNativePictureFormat:=False, _
                           SaveFormsData:=False, _
                           SaveAsAOCELetter:=False, _
                           CompatibilityMode:=14
End Sub


En la primera línea hay un FileName= que tiene asignado el nombre del cocumento que he introducido a mano al crear la macro.

Ahora realizo unos pequeños cambios:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro2()
'
' Macro1 Macro
'
'
    Dim Nombre As String
 
    Nombre = InputBox("Nombre del Documento:", "Guardar como . . .")
 
    If Nombre = "" Then Exit Sub
 
    ActiveDocument.SaveAs2 FileName:=Nombre, _
                           FileFormat:=wdFormatXMLDocumentMacroEnabled, _
                           LockComments:=False, Password:="", _
                           AddToRecentFiles:=True, _
                           WritePassword:="", _
                           ReadOnlyRecommended:=False, _
                           EmbedTrueTypeFonts:=False, _
                           SaveNativePictureFormat:=False, _
                           SaveFormsData:=False, _
                           SaveAsAOCELetter:=False, _
                           CompatibilityMode:=14
End Sub


Cuando introduzcas el nombre no es necesario que pongas la extensión.

En este ejemplo crea el documento para la Version de Word 2010 con macros ( FileFormat=).

No se si es compatible con la versión de 2007.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar