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 Escriba lo siguiente para crear el " getWordTableData " subrutina : Private Sub getWordTableData () Pulse " Intro. " Escriba lo siguiente para crear nuevas variables: clmnCnt Dim As Integer rowcnt Dim As Integer Tipo lo siguiente para crear objetos de Word : Set wrdApp = CreateObject ( " Word.Application " ) Set wrdDoc = wrdApp.Documents.Open ("C: \\ myTableDoc.doc ") 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 ) . Siguiente rowcnt Siguiente clmnCnt Escriba lo siguiente para liberar la variable de la memoria : wrdApp Set = Nothing Set wrdDoc = Nothing Press "F5 " para ejecutar la subrutina .
4
5
6
Range.Text
7