Word y Excel son las dos aplicaciones de la suite Microsoft Office. Word es un procesador de textos y una hoja de cálculo de Excel . 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 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

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

Clic en la celda en la parte superior izquierda y escriba " Columna1 ", presione "Tab" para pasar a la segunda columna y escriba " Columna2 " .
< P > Haga clic en la primera celda de la fila número dos y escriba " Datq1 " . Pulse el botón " Tab" para pasar a la segunda columna y escriba " Data2 "

Guardar el documento en "C: \\ " . Tan " . MyTableDoc.doc "
2

Start Microsoft Office Excel , seleccione la ficha " 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 "Word 3

Escriba lo siguiente para crear el " getWordTableData " subrutina :

Private Sub getWordTableData ()

Pulse " Intro. "
4

Escriba lo siguiente para crear nuevas variables:

clmnCnt Dim As Integer

rowcnt Dim As Integer
5

Tipo lo siguiente para crear objetos de Word :

Set wrdApp = CreateObject ( " Word.Application " )

Set wrdDoc = wrdApp.Documents.Open ("C: \\ myTableDoc.doc ") < br >
6

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

para clmnCnt = 1 para wrdDoc.Tables ( 1 ) Columnas conde .

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

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

Siguiente rowcnt

Siguiente clmnCnt
7

Escriba lo siguiente para liberar la variable de la memoria :

wrdApp Set = Nothing

Set wrdDoc = Nothing

Press "F5 " para ejecutar la subrutina .