Start Microsoft Office Word 1 , selecteert u in het menu "Invoegen" en klik op "Table " . Selecteer een tabel met twee kolommen en twee rijen .

Klik op de cel in de linkerbovenhoek en type " Kolom1 " , druk op " Tab " om naar de tweede kolom en typ " Kolom2 " .

Klik op de eerste cel in rij nummer twee en type " Datq1 " . Druk op " Tab " om naar de tweede kolom en typ " Data2 "

Sla het document op in " C : \\ " . Als " . MyTableDoc.doc "

Start Microsoft 2 Office Excel , selecteert u het tabblad " Developer " en klik op ' Visual Basic . " Klik op het menu "Invoegen " en selecteer " Module . "

Selecteer het menu "Extra " en klik op " References ... " . Vink het vakje aan naast " Microsoft Word Object Library . " Klik op "OK . "

Type 3 het volgende aan de " getWordTableData " subroutine maken:

Private Sub getWordTableData
( )

Press "
Enter . "

Type 4 de volgende nieuwe variabelen maken :

Dim clmnCnt
als Geheel

Dim rowCnt
als Geheel

Type 5 de volgende om Word-objecten te maken:

Set wrdApp = CreateObject ( " Word.Application " ) op Twitter

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

Type 6 de volgende voor het doorlussen van de tabel in " myTableDoc.doc " en geven de inhoud door middel van een bericht doos : .

clmnCnt = 1 To wrdDoc.Tables ( 1 ) Zuilen Graaf

rowCnt = 1 To wrdDoc.Tables ( 1 ) . Rows.Count

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

volgende rowCnt

volgende clmnCnt

Type 7 de volgende om uw variabele los te maken van het geheugen :

Set wrdApp = Nothing

Set
wrdDoc = Nothing

Druk op " F5 "
uw subroutine draaien .