Cómo iniciarse en el uso de VBA con Microsoft Word

Primeros pasos con Visual Basic para Aplicaciones (VBA) en Microsoft Word no es tan complicado como usted puede pensar. VBA es un lenguaje de programación utilizado en aplicaciones de Microsoft Office para automatizar tareas rutinarias. La forma más rápida para empezar es a través del uso de macros. Una macro VBA le permite poner la Palabra en el piloto automático por lo que le permite ejecutar un conjunto de comandos con un solo clic o pulsar una tecla. Puede grabar una macro y editar la macro después de que ha sido creado para añadir más comandos, según sea necesario.

Instrucciones

1 Lanzamiento de Microsoft Word, haga clic en la pestaña "desarrolladores" y haga clic en "Grabar macro." Tipo "createTable" abajo "nombre de la macro" y haga clic en el botón "OK".

2 Haga clic en el menú "Insertar" y haga clic en el icono "Tabla". Arrastre el ratón sobre los cuadrados y haga clic en el cuadrado marcado "Tabla 3x3" para insertar una nueva tabla. Haga clic en el icono "Detener grabación" en el panel Macros para detener la grabación de la macro.

3 Haga clic en la pestaña "desarrolladores" y haga clic en "Macros" para abrir la ventana de diálogo Macros. Haga clic en la macro "createTable" creado en los pasos anteriores y haga clic en "Editar" para abrir la ventana Editor de VB. El siguiente código VBA se genera automáticamente para crear la tabla:

ActiveDocument.Tables.Add Rango: = Selection.Range, NumRows: = 3, númeroColumnas: = _

3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed

Con Selection.Tables (1)

Si .Style & lt;> "Tabla Grid",

.Style = "Tabla de cuadrícula"

Terminara si

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = False

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = False

.ApplyStyleRowBands = True

.ApplyStyleColumnBands = False

Terminar con

Selection.TypeText texto: = "Nombre"

Unidad Selection.MoveRight: = wdCell

Selection.TypeText texto: = "Apellido"

Unidad Selection.MoveRight: = wdCell

Selection.TypeText texto: = "Grado"

4 Agregue el siguiente código VBA para rellenar la tabla con los datos:

Con Selection.Tables (1)

.Cell(2, 1).Range.Text = "John"

.Cell (2, 2) .Range.Text = "Smith"

.Cell (2, 3) .Range.Text = "B"

.Cell (3, 1) .Range.Text = "Oscar"

.Cell (3, 2) .Range.Text = "Ramos"

.Cell (3, 3) .Range.Text = "A +"

Terminar con

5 Pulse la tecla "F5" para ejecutar la macro. Esto creará una nueva tabla con tres columnas y tres filas, y se rellenará las celdas con datos.