Word ed Excel sono entrambe le applicazioni della suite Microsoft Office . Word è un programma di elaborazione testi e di Excel un foglio di calcolo . Saper accedere alle tabelle di Microsoft Word di Microsoft Excel può essere utile quando si lavora con tabelle di Word . Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione che è facile da imparare e da usare , e in pochi passi è possibile scrivere codice VBA per accedere a una tabella di Word da Excel . Istruzioni
1

Avviare Microsoft Office Word , selezionare il menu "Inserisci" e fare clic su "Tabella" . Selezionare una tabella con due colonne e due righe .

Fare clic sulla cella in alto a sinistra e digitare " Column1 " , premere il tasto "Tab" per passare alla seconda colonna e digitare " Column2 " .

Fare clic sulla prima cella della riga numero due e digitare " Datq1 " . Premere il tasto " Tab " per passare alla seconda colonna e digitare " Dati2 "

salvare il documento in " C : \\ " . Come " . MyTableDoc.doc "
2

Start di Microsoft Office Excel , selezionare la scheda "Sviluppatore " poi su " Visual Basic ". Fare clic sul menu "Inserisci" e selezionare " Modulo ".

Seleziona il menu " Strumenti " e clicca su "Riferimenti ... " . Seleziona la casella accanto a " Libreria oggetti di Microsoft Word . " Fare clic su "OK".
3

digitare quanto segue per creare il " getWordTableData " subroutine :

Private Sub getWordTableData ( ) per

Premere " Enter . "
4

Digitare quanto segue per creare nuove variabili :

Dim clmnCnt As Integer Dim

rowCnt As Integer
5

Tipo quanto segue per creare oggetti di Word:

wrdApp = CreateObject ( " Word.Application " ) per

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

digitare quanto segue per scorrere la tabella in " myTableDoc.doc " e visualizzarne il contenuto in una finestra di messaggio : .

clmnCnt = 1 To wrdDoc.Tables ( 1 ) Colonne conte .

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

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

Avanti rowCnt

Avanti clmnCnt
7

digitare quanto segue per rilasciare la variabile dalla memoria :

wrdApp = Nothing Set

wrdDoc = Nothing

Premere " F5 " per eseguire la subroutine .

• Assegnazione di un numero di righe di una variabile utilizzando Visual Basic 
• Come impostare il valore di un record specifico in Access Visual Basic