Microsoft Word est un programme de traitement de texte utilisé pour créer et le format des documents . Visual Basic pour Applications ( VBA) est couramment utilisé pour automatiser des tâches répétitives entre les applications Microsoft Office telles que Word, Excel et Access. En quelques étapes, vous pouvez écrire un petit sub à lire un document Word en VBA. Instructions
1

Ouvrez Microsoft Excel 2007. Cliquez sur l'onglet « Développeur » et sélectionnez « Visual Basic ». Tapez " readWordDocuemnt Sub ( ) " et appuyez sur " Entrée" pour créer un nouveau sous
2

Tapez la suivante pour déclarer vos variables : .

WordApplication As Word.application < br >

Dim WordDocument Comme Word.Document

pText Dim As String

Prange As Word.Range

pCount As long

rXLRow Dim As Long
3

Tapez la commande suivante pour créer un nouveau classeur Excel et ouvrez le document Word à lire :

Workbooks.Add

Set wordApplication = CreateObject (" Word.Application " )

Set WordDocument = wordApplication.Documents.Open ("C: \\ texte en Word.doc " )
4 Type de

ce qui suit à la boucle à travers les paragraphes du document Word et ajoutez-les à nouveau classeur Excel : .

rXLRow = 2

WordDocument

pCount = 1 To Paragraphs.Count < br . >

Fin: . . . = alinéas ( pCount ) Range.End )

pText = pRange.Text

ActiveSheet.Range ("A" & rXLRow ) . Formule = pText

rXLRow = rXLRow + 1

Suivant pCount

. Fermer

End With
5

Tapez la commande suivante pour enregistrer le nouveau classeur, fermez Word et effacer les variables :

wordApplication.Quit

Set WordDocument = Nothin :

Set wordApplication = Nothing

ActiveWorkbook.Saved = True
6

Exécuter les sous
< br . > Photos