Macros en el Word del Office -1
| Páginas |
Vamos a ver cómo se
insertan sencillas Macros en un documento.doc del Word.
Macros construidas con Visual
Basic.
Un ejemplo de Macro es poner un Botón en un Documento.doc de
Word, que realiza alguna acción cuando lo pulsamos.
|
Bajar un ejemplo de documento con macro:
macros.doc (40 K)
|
0.- Entramos en el Word del Office de Microsoft.
1.- Hacemos visible las ventanas de Edición
de Visual Basic:
Herramientas / (Personalizar) / Barras de herramientas / Visual Basic
|
Saldrán estas ventanas: Le daremos al icono de la escuadra según queramos escribir letras o poner botones. |
 |
2.- Escribimos "Pulsa este Botón:".
Hacemos clic sobre el icono del "Botón de comando"
para que aparezca su dibujo -------> CommandButton
 |
 |
3.- Pulsamos sobre el botón "CommandButton"
y entraremos en el modo Editor de Visual Basic.
Debemos tener en pantalla:
Una ventana llamada Proyecto - Project
Otra llamada Propiedades -
Y otra llamada Document1 - ThisDocument (Código)
(Si no las ves pulsa Ver / Explorador de Proyectos y / Ventana de Propiedades.)
4.- Dentro de Private Sub
CommandButton1_Click ( ) Ponemos:
MsgBox ("Hola")
5.- Mediante los iconos:
 |
 |
Pasamos al modo Texto del Word y al modo Diseño de Visual Basic
6.- Cuando pulsemos el Botón en modo Texto del Word, saldrá una ventana con la palabra Hola.
7.- Guardar el documento.
Propiedades
Volvamos al modo Diseño y veamos las Propiedades del Botón.
 |
(Name) ......................... Nombre del control |
Vamos a poner otras instrucciones entre:
| Private Sub CommandButton1_Click
( ) End Sub |
1.-
| x = MsgBox("Muy bien", vbExclamation + vbOKOnly, "Esto es una macro") |
2.-
| nom = InputBox("Introduce tu nombre", "Entrada de datos ") x = MsgBox(nom & ", eres Perfecto", vbExclamation + vbOKOnly, "Contestación") |
3.-
| pre = MsgBox("¿Te gustan los Beatles?", vbQuestion + vbYesNo,
"Pregunto") If pre = vbYes Then res = MsgBox("Eres un carroza.", vbInformation + vbOKOnly, "Respuesta") Else res = MsgBox("Niñato moderno.", vbExclamation + vbOKOnly, "Respuesta") End If |
Como ves, estamos utilizando un lenguaje de programación
llamado Visual Basic.
Aquí puedes ver otras posibilidades que tiene InputBox
y MsgBox.
Controles: Botón de comando y Caja de texto.
En un documento Word coloca un botón (CommandButton) y dos Cajas de texto (TextBox)
Luego en Diseño de Visual Basic escribe esta instrucciones:
 |
Private Sub
CommandButton1_Click ( ) TextBox2 = TextBox1 End Sub |
Escribe algo en TextBox1 de arriba y cuando Pulses el Botón se copiará en el TextBox2 de abajo
Controles: Barra de desplazamiento
y Caja de texto.
Coloca una Barra de desplazamiento (ScrollBar) y una Caja de texto (TextBox).
 |
En las Propiedades del ScrollBar1 poner: Private Sub ScrollBar1_Change (
) |
Controles: Casillas de verificación,
Botón de opción, Botón de comando y Cuadro de texto.
Coloca: 3 CheckBox, 2 OptionButton, 1 CommandButton y 1 TextBox.
 |
Private Sub
CommandButton1_Click ( ) Pedir = "" Pedir = "Sírvanme de comer " If CheckBox1 = True Then Pedir = Pedir & "Carne, " If CheckBox2 = True Then Pedir = Pedir & "Pescado, " If CheckBox3 = True Then Pedir = Pedir & "Frutas" Pedir = Pedir & " y de beber " If OptionButton1 = True Then Pedir = Pedir & "Agua." If OptionButton2 = True Then Pedir = Pedir & "Vino." TextBox1 = Pedir End Sub |
Más controles: Windows
Media Player
| En la Ventana de Controles pulsar: | 
Elegir Windows Media Player |
Colocar también un Botón.
 |
Private Sub CommandButton1_Click
( ) WindowsMediaPlayer1.URL = "C:\archivo.wav"
Poner un archivo WAV o MP3 o AVI .... |