AutoClose

29/09/2009 - 16:41 por zopita | Informe spam
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

#1 Monica May
30/09/2009 - 22:46 | Informe spam
holasss Gloria :)) !!

Pues al ser un Evento de Cierre de documento [ AutoClose o bien
Document_Close] el poner de nuevo >>

ActiveDocument.Close

Produce un error o puede producirse un error por repetir el cerrar de
ahi que puedes hacer lo siguiente:

Cambia la siguiente linea de codigo >>

[ ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges]

Por esta >>

ActiveDocument.Saved = True

De esta manera [ evitaras ] que te pregunte si quieres guardar los
cambios... y ... el documento se cerrara con la Finalizacion del
procedimiento [ AutoClose] y SIN Guardar los cambios.Prueba a ver
jejejje :P !!

Saludos
Monica


macro AutoClose.
... el usuario pincha Archivo/cerrar se supone
que tiene que mostrar una MsgBox con dos botones,
Sí y No, para que el usuario determine
...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.
...me gustaria saber como tengo que escribir esto
para que al picar en los botones
Si o No suceda lo que he explicado y no vuelva a salir la
maldita ventana “oficial” de Word
(la de “¿Desea guardar los cambios?”).
'..
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

Preguntas similares