Cómo extraer los datos de las tablas de Word con Excel VBA

Visual Basic para Aplicaciones ( VBA) , el lenguaje de scripting de Microsoft Excel y Word, permite a los usuarios de estos programas escriben guiones que aceleran las tareas comunes, como el acceso a datos de la tabla . Además de dar a los usuarios de Excel la capacidad de manejar datos de la tabla de Excel , VBA también proporciona un medio para acceder a las tablas en documentos de Word. Desarrolladores VBA se refieren a esta capacidad de un programa de Office para ejecutar otro como "automatización ". Una de las ventajas que la automatización de la extracción de datos de Word ofrece es el horario . Sin la automatización, los usuarios de Excel que tenga que utilizar métodos que consumen más tiempo para llevar los datos a Excel desde Word. Instrucciones
1

Crear un nuevo documento en Word presionando "Control -N. " Haga clic en el menú "Insertar " y luego haga clic en el icono " Tabla" de la "Mesa " del panel. Haga click en cualquier icono de celda para hacer una mesa y luego los datos de tipo en al menos celda del extremo izquierdo de la fila superior. Guarde el documento como "C: \\ WordTableData.doc " y cierre Word. Este paso crea datos de ejemplo que se le extrae con Excel.
2

Crear un nuevo documento en Excel y luego presionar " Alt -F11 " para entrar en el entorno de desarrollo integrado de Visual Basic ( IDE). El IDE proporciona los medios para introducir manualmente los programas de VBA , en contraste con la grabación de macros en Excel.
3

Haga clic en " Insertar" y luego en " módulos" para crear un nuevo módulo para la introducción de un código de programa . Escriba el siguiente código en cualquier lugar en el interior del nuevo módulo:

Public Sub accessTable ()

Set appWD = CreateObject ( " Word.Application " )

appWD.Documents.Open Nombre : = " C: \\ WordTableData.doc " , _

ConfirmConversions : = False , ReadOnly : = False , AddToRecentFiles : = False ,

PasswordDocument : = "", PasswordTemplate : = " " , Revert : = False , _

WritePasswordDocument : = "", WritePasswordTemplate : = "" , Formato : = _

wdOpenFormatAuto

x = appWD.ActiveDocument.Tables ( 1 ) . Filas ( 1 ) . Células ( 1 )

MsgBox (x )

appWD.Quit

End Sub

Esta subrutina crea una oculta instancia de Microsoft Word, y luego lo utiliza para abrir un documento de Word y obtener el valor de una celda en la primera tabla del documento.
4

Pulse la opción " Referencias" de IDE en el menú " Herramientas" y a continuación, desplácese por la lista de objetos hasta que vea " Biblioteca de objetos de Microsoft Word. " Coloque una marca en la casilla a la izquierda de este elemento y luego cerrar el cuadro de diálogo " Referencias ". Para ejecutar , el código necesita vincular a los objetos virtuales de Word ( por ejemplo, tablas) . El cuadro de diálogo "Referencias" le permite crear ese vínculo.
5

clic en cualquier lugar dentro de la subrutina " accessTable " que escribió en el paso 3 y presione "F5 " para ejecutar la subrutina. Tras una breve pausa , Excel mostrará un cuadro de diálogo con los datos introducidos en la tabla del documento de Word en el paso 1 .
6

Escriba el nuevo código siguiente después de la instrucción "Public Sub" en el " accessTable " subrutina :

dim someRow , someColumn

someRow = InputBox (" Escriba la fila desea extraer datos de . " )

someColumn = InputBox ( " Introduce la columna desea extraer datos de . " )

Estas nuevas declaraciones, y el que en el paso siguiente , le permiten elegir qué celda de la tabla para extraer los datos.
7

Sustituya el estado que comience con " x = appWD " con esta declaración: .

x = appWD.ActiveDocument.Tables ( 1 ) Filas ( someRow ) Células ( someColumn ) baratos . 8

Ejecute la subrutina como lo hizo en el paso 5 . Responda a los mensajes de la fila y la columna . Su programa de revisión que va a extraer los datos de la tabla de la célula que ha especificado y lo muestra en un cuadro de diálogo.