|
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
|
