Cómo acceder a tablas de Word Uso de Excel VBA

Word y Excel son las dos aplicaciones de la suite Microsoft Office. Word es un procesador de texto y Excel una hoja de cálculo. Saber cómo acceder a las tablas de Microsoft Word de Microsoft Excel puede ser útil cuando se trabaja con tablas de Word. Visual Basic para Aplicaciones (VBA) es un lenguaje de programación que es fácil de aprender y usar, y en unos pocos pasos se puede escribir código VBA para acceder a una tabla de Word desde Excel.

Instrucciones

1 Iniciar Microsoft Office Word, seleccione el menú "Insertar" y haga clic en "Tabla". Seleccione una tabla con dos columnas y dos filas.

Haga clic en la celda en la parte superior izquierda y el tipo "columna 1", presione "Tab" para pasar a la segunda columna y escriba "Columna2".

Haga clic en la primera celda de la fila número dos y el tipo "Datq1". Pulse la tecla "Tab" para pasar a la segunda columna y escriba "Dato2".

Guarde el documento en "C: \" como "myTableDoc.doc."

2 Iniciar Microsoft Office Excel, seleccione la pestaña "desarrolladores" y luego haga clic en "Visual Basic". Haga clic en el menú "Insertar" y seleccione "Módulo".

Seleccione el menú "Herramientas" y haga clic en "Referencias ...". Marque la casilla junto a "Microsoft Word <número de versión> Biblioteca de objetos." Haga clic en Aceptar."

3 Escribe lo siguiente para crear la subrutina "getWordTableData":

Private Sub getWordTableData ()

Presione ENTRAR."

4 Escribe lo siguiente para crear nuevas variables:

Dim clmnCnt como número entero

Dim rowcnt como número entero

5 Escribe lo siguiente para crear objetos de Word:

Establecer wrdApp = CreateObject ( "Word.Application")

Establecer wrdDoc = wrdApp.Documents.Open ( "C: \ myTableDoc.doc")

6 Escriba lo siguiente para recorrer la tabla de "myTableDoc.doc" y mostrar su contenido a través de un cuadro de mensaje:

For clmnCnt = 1 To wrdDoc.Tables(1).Columns.Count

Para rowcnt = 1 Para wrdDoc.Tables (1) .Rows.Count

MsgBox wrdDoc.Tables (1) .Cell (rowcnt, clmnCnt) .Range.Text

Siguiente rowcnt

Siguiente clmnCnt

7 Escribe lo siguiente para liberar su variable de la memoria:

Establecer wrdApp = Nada

Establecer wrdDoc = Nada

Pulse la tecla "F5" para ejecutar la subrutina.