¿Cómo puedo obtener un Word 2007 Macro para hacer una pausa y esperar para una entrada de teclado y luego reanudar?

El lenguaje de macros de Word 2007 tiene sus raíces en Visual Basic para aplicaciones y le permite desarrollar guiones, que no sólo los procesos secuencias de órdenes repetitivas, pero parar y recoger la entrada del usuario también. Los cuadros de entrada están programados para aparecer e interrumpir al usuario, preguntando por un valor de entrada. Cuando el usuario responde al cuadro de diálogo, la macro continúa procesando desde ese punto, y se puede utilizar el valor que de que el usuario ha introducido para afectar a los procesos de la secuencia de comandos de macro.

Instrucciones

1 Seleccione "Ver", luego "Macros" en el menú de la cinta. Se muestra el cuadro de diálogo Macros. Para este ejemplo, cree una macro llamada MyInputMac escribiendo este nombre en el campo Nombre y hacer clic en "Crear".

2 Crear una variable para el valor de entrada que se asignará a. Después de la declaración que lee Sub MyInputMac (), escriba la línea siguiente para aceptar una cadena (palabras) como un valor:

myStrVar Dim como secuencia

3 Inserte una declaración que incluye una llamada a la función InputBox. Continuando con el ejemplo, añada la siguiente línea al código de macro:

myStrVar = InputBox ( "¿Cómo quiere que firme la carta?", "Firma")

Cuando se procesa esta línea en la macro, un cuadro de diálogo denominado "firma" se muestra con la pregunta sobre la firma contenida en su interior. Un cuadro de texto vacío se proporciona para que el usuario introduzca su firma preferida. La ejecución continúa cuando el usuario hace clic en "Aceptar" o "Cancelar".

4 Guardar la macro haciendo clic en "Archivo", luego "Guardar" o la tecla "Ctrl + S".

Consejos y advertencias

• La macro de ejemplo que sigue le permite experimentar con la función InputBox y luego mostrar los resultados en un cuadro de mensaje:
• Sub MyInputMac ()
• '
• 'Macro MyInputMac
• myStrVar Dim como secuencia
• myStrVar = InputBox ( "¿Cómo quiere que firme la carta?", "Firma")
• MsgBox myStrVar y "será su firma.", VbInformation, "Firma Set"
• End Sub