Cómo extraer los cuadros a partir de varios documentos de Word y importarlos a Excel

Excel no puede importar tablas de Word con la misma facilidad como puede otros datos. Una forma de tablas de Word a Excel es convertir primero los datos en las tablas de Word con los valores separados por comas , más conocido como CSV. Pero esta es una tarea que requiere mucho tiempo . Otra solución consiste en utilizar un lenguaje de programación de Excel , Visual Basic para Aplicaciones, para leer datos de una tabla de Word , con copia a una hoja de Excel. Con este enfoque implica el uso de los objetos virtuales de Word, incluyendo el objeto "Tabla" . Instrucciones
1

Utilice el Explorador de Windows para copiar un archivo de Word que contiene al menos una tabla en la carpeta "C : \\". Cambie el nombre del archivo como " table.docx . " Vas a escribir un programa de introducción que leerá una celda de la tabla de este archivo.

2 Haga clic en la pestaña de " desarrolladores" , a continuación, haga clic en el botón de "Visual Basic " para entrar en el entorno de programación Visual Basic . Pega el siguiente programa en la ventana de código VB . Este programa crea un enlace a la Palabra , que permite sobresalir utilizar objetos virtuales de Word como si el programa se ejecuta dentro de un documento de Word . Este proceso se denomina " Automatización ".

Public Sub LoadWordTablebak ()

pgmWord As Word.Application

Set pgmWord = CreateObject ( " Word.Application ")

pgmWord.Documents.Open . ("c : \\ table.docx ")

MsgBox pgmWord.ActiveDocument.Tables ( 1 ) celular ( 1 , 1) spanish

pgmWord.ActiveDocument . Close to

pgmWord.Quit

End Sub

3 Haga clic en el menú " Herramientas" , haga clic en el comando " Referencias". Desplácese por la ventana que aparece para localizar el elemento " Microsoft Word " , haga clic en la casilla de verificación de ese elemento . Esta acción permite que Excel acceder a los objetos visuales en un documento de Word .
4

clic cualquier declaración en el programa, a continuación, haga clic en el comando " Ejecutar" del menú " Ejecutar" . El programa mostrará un cuadro de mensaje que muestra el contenido de una celda de la tabla en un documento de Word. Ahora vamos a ampliar el programa para cargar en una tabla completa de cualquier documento de Word.
5

Pega el siguiente programa revisado por debajo de la "End Sub" declaración del programa original. Este programa pide al usuario el nombre de archivo de un documento de Word. El usuario deberá introducir el número de una tabla en el documento. El programa utiliza el método de automatización del primer programa para cargar copiar la celda de la tabla especificada por celda en una hoja de cálculo Excel.

Public Sub LoadWordTable2 ()

DocNombre As
secuencia

TableID Dim As Integer Dim

c , r, startRow As Integer Dim

curcell

pgmWord As Word.Application

Set curcell = ActiveCell

Set pgmWord = CreateObject ( " Word.Application " )

DocNombre = InputBox ("Escriba el nombre del documento Word " )

DocNombre = InputBox ("Escriba el nombre del documento Word ")

While ( DocNombre < > "" )

TableID = InputBox ( " Introduzca el número de la mesa" )

pgmWord.Documents.Open ("c : \\ table . docx " )

pgmWord.ActiveDocument.Tables ( TableID )

startRow = ActiveCell.Row

Para c = 1 To. Columns.Count

para r = 1 To. Rows.Count

curCell.Value = . celular (r, c )

' Mover a la siguiente fila

Establecer curcell curCell.Offset = ( 1 , 0 )

Siguiente r

'Mover a la columna siguiente

Set curcell = Cells ( startRow , curCell.Column + 1) spanish

Siguiente c

extremo con

pgmWord.ActiveDocument.Close

DocNombre = InputBox ("Escriba el nombre del documento Word " )

Wend

pgmWord . Salir

End Sub
6

Haga clic en el icono de la aplicación "Excel" en la barra de tareas de Windows para volver a Excel , a continuación, haga clic en el botón " Macros " de la pestaña " Developer " . Haga doble clic en la macro " LoadWordTable " para ejecutar esa macro .
7

Escriba el nombre de un documento de Word que contiene una tabla cuando el sistema para hacerlo parecer . Escriba el número de la tabla que desea que el mensaje para que el cuadro parece . Por ejemplo , si desea que la segunda tabla en el documento , " 2 ". Tipo Excel se carga la tabla en la hoja de cálculo actual.
8

Continuar cargar tablas de Word con el programa según sea necesario. Pulse el botón " Enter" en el " nombre del documento " pronto para terminar el programa .