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 " digitare quanto segue per creare il " getWordTableData " subroutine : Private Sub getWordTableData ( ) per Premere " Enter . " Digitare quanto segue per creare nuove variabili : Dim clmnCnt As Integer Dim rowCnt As Integer Tipo quanto segue per creare oggetti di Word: wrdApp = CreateObject ( " Word.Application " ) per wrdDoc = wrdApp.Documents.Open ( " C : \\ myTableDoc.doc " ) 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 ) . Avanti rowCnt Avanti clmnCnt digitare quanto segue per rilasciare la variabile dalla memoria : wrdApp = Nothing Set wrdDoc = Nothing Premere " F5 " per eseguire la subroutine .
3
4
5
con 6
Range.Text
7
Informazioni correlate
Programmazione © www.354353.com