Cómo utilizar Visual Basic en Word

Conocer cómo utilizar Microsoft Visual Basic para Aplicaciones ( VBA) en Microsoft Word puede ser muy útil. Word es un procesador de textos incluido en la suite de Microsoft Office. VBA es comúnmente utilizado para automatizar tareas rutinarias de Word y otras aplicaciones de Microsoft Office. Un buen momento para utilizar VBA en Word sería si necesita insertar 500 tablas en un documento y agregar nombres de campo a todos ellos . El siguiente es un pequeño ejemplo de cómo se puede utilizar VBA en Word, pero se puede usar VBA para automatizar otras tareas repetitivas también. Instrucciones
1

abierto de Microsoft Office Word 2007 , haga clic en la pestaña de " desarrolladores" y seleccione "Visual Basic ". Seleccione el menú "Insertar" y seleccione
2

Escriba lo siguiente para crear un nuevo subprograma "Módulo ". :

Private Sub useVBinWord ()

Prensa " Escriba "
3

Escriba lo siguiente para insertar dos líneas de texto :

Selection.TypeText texto : =" . estoy insertando este texto a este documento de Word. "

Selection.TypeParagraph

Selection.TypeText texto : =" yo también voy a insertar esta tabla : "

Selection.TypeParagraph
4

Escriba lo siguiente para insertar una tabla con cuatro columnas y cuatro filas :

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

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

wdAutoFitFixed

Selection.Tables ( 1 )

Si Style < > " red Table" Entonces

. style = " Tabla con cuadrícula "

End If

. ApplyStyleHeadingRows = True

. ApplyStyleLastRow = False

. = ApplyStyleFirstColumn verdadero

. ApplyStyleLastColumn = False

. ApplyStyleRowBands = True

. ApplyStyleColumnBands = False End

con fotos de 5

Escriba el después de añadir nombres de los campos a las columnas de la tabla:

Selection.TypeText texto : =

Unidad Selection.MoveRight " Campo1 ": = wdCell

Selection.TypeText Texto: = " campo2 "

Unidad Selection.MoveRight : = wdCell

Selection.TypeText Texto: =

Unidad Selection.MoveRight " Field3 ": = wdCell

Selection.TypeText Texto: . = " Campo4 "

Press "F5 " para ejecutar la subrutina