Mónica, la plastilinas ataca de nuevo.
Tengo una macro AutoClose. Cuando el usuario pincha Archivo/cerrar se supone
que tiene que mostrar una MsgBox con dos botones, Sí y No, para que el
usuario determine qui quiere o no guardar los cambios del documento.
- Si pincha en Sí se ejecutan unas macros, se guarda el documento y se
cierra.
- Si pincha en No el documento se cierra sin guardar cambios. Y es aquí
donde estoy atascada. He probado con todo lo que he pillado por Internet y no
hay tu tía.
En resumen, me gustaría saber cómo tengo que escribir esto para que al picar
en los botones Sí o No suceda lo que he explicado y no vuelva a salir la
maldita ventana “oficial” de Word (la de “¿Desea guardar los cambios?”).
Un millón de gracias (otra vez)
Sub
..Dim intMsgBoxResult As Integer
intMsgBoxResult = MsgBox("¿Guardar cambios?", vbYesNo + _
..vbExclamation, "Cerrando el documento")
If intMsgBoxResult = vbYes Then ' Si responde "sí" se ejecutan
'las macros,
guarda y cierra
MacroA
MacroB
MacroC
ActiveDocument.Save
ActiveDocument.Close
Else
..ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
End If
End Sub
Leer las respuestas