Comment accéder aux tables de mots en utilisant Excel VBA

Démarrer Microsoft Office Word, sélectionner le menu "Insertion " et cliquez sur "Table" . Sélectionnez un tableau avec deux colonnes et deux lignes .

Cliquez sur la cellule en haut à gauche et tapez " Column1 ", appuyez sur «Tab» pour passer à la deuxième colonne et tapez " Column2 " .

Cliquez sur la première cellule de numéro de ligne à deux et tapez " Datq1 " . Appuyez sur «Tab» pour passer à la deuxième colonne et tapez " Data2 "

enregistrer le document dans " C: \\" . Comme " . MyTableDoc.doc "
2

Démarrer Microsoft office Excel , sélectionnez l'onglet " développeur" puis cliquez sur " Visual Basic ". Cliquez sur le menu "Insertion " et sélectionner " Module ".

Choisissez le menu " Outils " et cliquez sur "Références ... " . Cochez la case à côté de " Parole 3

Tapez la commande suivante pour créer le " getWordTableData " sous-programme :

Private Sub getWordTableData ()

Appuyez sur " Entrée. "
4

Tapez la commande suivante pour créer de nouvelles variables :

clmnCnt As Integer

rowcnt As Integer
5

type suivantes pour créer des objets Word :

Set wrdApp = CreateObject (" Word.Application " )

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

Tapez la commande suivante pour parcourir la table " myTableDoc.doc " et afficher son contenu à travers une boîte de message : .

clmnCnt = 1 To wrdDoc.Tables ( 1) Colonnes . comte de

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

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

Suivant rowcnt

Suivant clmnCnt
7

Tapez la commande suivante pour libérer votre variable dans la mémoire :

Set wrdApp = Nothing Set

wrdDoc = Nothing

Appuyez sur " F5 " pour exécuter votre routine .