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 de empezar es a través del uso de macros. Una macro VBA que permite poner la Palabra en el piloto automático que le permite ejecutar una serie 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 Microsoft Word, haga clic en la pestaña de " desarrolladores" y haga clic en " Grabar macro ". Tipo " crearTabla " 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 de macros para detener la grabación de la macro.
3

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

Range ActiveDocument.Tables.Add : = Selection.Range , NumRows : = 3 , NumColumns : = _

3 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _

wdAutoFitFixed

Selection.Tables ( 1 )

Si Style < > "Table Grid" Entonces
< p> . style = " Tabla con cuadrícula "

End If

. ApplyStyleHeadingRows = True

. ApplyStyleLastRow = False

. ApplyStyleFirstColumn = True

ApplyStyleLastColumn = False

ApplyStyleRowBands = True

ApplyStyleColumnBands = False End

Con

Selection.TypeText Texto: . . . = "Nombre "
Unidad Selection.MoveRight

: = wdCell

Selection.TypeText texto: = " Nombre "
Unidad Selection.MoveRight

Última : = wdCell

Selección . TypeText texto : = " Grado "
4

Añada el siguiente código de VBA para rellenar la tabla con los datos :

Selection.Tables ( 1 )

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

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

. celular ( 2 , 3 ) . Rango . Texto
= " B "

. célula ( 3 , 1 ) . Range.Text = " Oscar "

. célula ( 3 , 2 ) . Range.Text = " Ramos " < br >

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

End con fotos de 5

Press "F5 " para ejecutar la macro. Esto creará una nueva tabla con tres columnas y tres filas , y llenará las celdas con datos.