Microsoft Word è un programma di elaborazione testi utilizzato per creare e documenti in formato. Visual Basic, Applications Edition (VBA) è comunemente usato per automatizzare le operazioni ripetitive tra le applicazioni di Microsoft Office come Word, Excel e Access. In pochi passi si può scrivere un piccolo sub per leggere un documento di Word in VBA.

istruzione

1 Aprire Microsoft Excel 2007. Fare clic sulla scheda "Sviluppatore" e selezionare "Visual Basic". Tipo "readWordDocuemnt Sub ()" e premere "Invio" per creare una nuova sotto.

2 Digitare la seguente per dichiarare le variabili:

Dim wordApplication Come Word.Application

Dim wordDocument Come Word.Document

Dim pText As String

Dim Prange Come Word.Range

pCount Dim As Long

Dim rXLRow As Long

3 Digitare la seguente per creare una nuova cartella di lavoro di Excel e aprire il documento di Word da leggere:

Workbooks.Add

Set wordApplication = CreateObject ( "Word.Application")

Set wordDocument = wordApplication.Documents.Open ( "C: \ testo in Word.doc")

4 Digitare quanto segue per scorrere i paragrafi del documento Word e aggiungerli alla nuova cartella di lavoro di Excel:

rXLRow = 2

con wordDocument

Per pCount = 1 Per .Paragraphs.Count

Set Prange = .Range (Inizio:. = I paragrafi (pCount) .Range.Start, _

Fine:. = Paragrafi (pCount) .Range.End)

pText = pRange.Text

ActiveSheet.Range ( "A" e rXLRow) .Formula = pText

rXLRow = rXLRow + 1

Successivo pCount

.Vicino

End With

5 Digitare quanto segue per salvare la nuova cartella di lavoro, uscire da Word e variabili chiare:

wordApplication.Quit

Set wordDocument = Nothin:

Set wordApplication = Nothing

ActiveWorkbook.Saved = True

6 Eseguire il sub.