Aprire Microsoft Excel 2007. Fare clic sulla scheda " sviluppatori" e selezionare " Visual Basic ". Tipo " readWordDocuemnt Sub ( ) " e premere " Invio " per creare una nuova sotto
2
digitare quanto segue per dichiarare le variabili : .
Dim wordApplication Come Word.Application
Dim wordDocument Come Word.Document
Dim pText As String Dim
Prange Come Word.Range
Dim pCount As Long Dim
rXLRow As Long
3
digitare quanto segue per creare una nuova cartella di lavoro di Excel e aprire il documento di Word da leggere :
Workbooks.Add
wordApplication = CreateObject ( " Word.Application " ) per
wordDocument = wordApplication.Documents.Open ( " C : \\ Testo in Word.doc " ) economici 4
digitare quanto segue per ciclo attraverso i paragrafi del documento Word e aggiungerli alla nuova cartella di lavoro di Excel : .
rXLRow = 2
wordDocument
pCount = 1 per Paragraphs.Count < br . >
Prange = Range ( inizio: . = paragrafi ( pCount ) Range.Start , _
Fine : . . . = paragrafi ( pCount ) Range.End ) per
pText = pRange.Text
ActiveSheet.Range ( " A" & rXLRow ) . formula = pText
rXLRow = rXLRow + 1
Avanti pCount
. Chiudi
End With
5
digitare quanto segue per salvare la nuova cartella di lavoro , chiudere Word e variabili chiare :
wordApplication.Quit
wordDocument = Nothin :
wordApplication = Nothing
ActiveWorkbook.Saved = True
6
Eseguire i sub
< br . >
Programmazione © www.354353.com